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

1. program task31101860;
2. var
3.  Sum: integer;
4. begin
5.  for var i := 600 to 989 do
6.    if i mod 2 = 0 then
7.      Sum := Sum + i;
8.  Writeln(Sum);
9. end.

Вывод: 154830