Задача 1 Урок 10

http://fkn.ktu10.com/?q=node/8612
Выведите на экран, все четные числа от 35 до 64

program cycle;
var i: integer;
  begin
    for i:=35 to 64 do
      if ((i mod 2) = 0) then
    writeln (i,' ');
    readln();
  end.