Урок 10. Цикл For. Задание №5.

Урок 10. Задание №5.

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

Program LessonPascal;
var i : integer;
begin
 for i := 35 to 117 do
 begin
      if (i >= 45 ) and (i <= 99) and (i mod 2 = 1) then
         writeln (i, ' ')
      else
         if (i mod 2 = 0) then
             writeln (i, ' ')
 end;

 readln(); // Удержание консоль
end.// Завершение программы