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

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

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

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