ИНФОРМАТИКА СРОЧНО ПОМОЩЬ ПОЖАЛУЙСТА, ТОЛЬКО КАК В КЛАССНОЙ РАБОТЕ ВЫШЕ ПЖ

var S, k: integer;

begin

S:=0; k:=20;

while k<=50 do

begin

s:=s+k;

k:=k+2;

end;

writeln('Сумма чисел=', s);

end.