Урок 10.1 Задание 3

Задание 3 Урок 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