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

http://fkn.ktu10.com/?q=node/8612

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

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