tyngpuk

Ответ:

var b,c:integer;

begin

c:=0;

b:=3;

while b<=10 do

begin

c:=c+b;

b:=b+2

end;

write(c)

end.