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

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

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

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