Программа суммирование четных значений от 600 до 988

Question

Программа суммирование четных значений от 600 до 988

Answer 1

var

Sum: integer;

begin

for var i := 600 to 989 do

  if i mod 2 = 0 then

    Sum := Sum + i;

Writeln(Sum);

end.