ИНФОРМАТИКА СРОЧНО ПОМОЩЬ ПОЖАЛУЙСТА, ТОЛЬКО КАК В КЛАССНОЙ РАБОТЕ ВЫШЕ ПЖ
var S, k: integer;
begin
S:=0; k:=20;
while k<=50 do</p>
s:=s+k;
k:=k+2;
end;
writeln('Сумма чисел=', s);
end.