Задача 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.

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

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