Решение задачи №1 из главы 10

Задача №1 из главы 10

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

var i:integer; //объявляем переменную счетчика
begin

  for i:=35 to 64 do  // i пройдёт значения от 35 до 64
    if ((i mod 2) = 0) then  // выводим четные числа
       write(i, ' '); //выводим в одну строку через пробел

  readln(); // удерживаем консоль
end.