Задание 1 Урок 10

Задание 1 Урок 10

Выведите на экран, все четные числа от 35 до 64.

var i : integer;

begin
  for i := 35 to 64 do
    if ((i mod 2 ) = 0) then
      write(i, ' ');

  readln();
end.