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

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

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

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

  readln();
end.