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

Урок 10.1

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

var i: integer;

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

КОНСОЛЬ

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64