урок 10 задача 3

10 задача 3

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

var i: integer;

  begin

    for i := 35 to 64 do
      if ((i mod 2) = 0) then
        writeln(i);

  readln;

  end.