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

Задача 1 Урок 10.1:

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

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