sabina@com.ru , ответ добавлен 23.04.2017 в 09:56

Var i,s: integer;

begin
s:=0;
i:=2;
while i<=20 do begin
 s:=s+i;
 i:=i+2;
 end;
println(s);
end.

 0