Задача 1 урок 10.1

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

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

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