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

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

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

решение задачи

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

   readln();
end.