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

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

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

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

Вывод консоли:

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64