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

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