Помогите пожалуйста с Паскалем! Составьте программу, которая выводит ** экран сумму...

Question

Помогите пожалуйста с Паскалем!
Составьте программу, которая выводит на экран сумму четных чисел от 30 до 60

Answer 1

Var i,s:integer;
begin
i:=30;while i<61 do<br>  begin  s:=s+i;
  i:=i+2;
  end;
writeln('s=',s);
end.