Урок 11. Задача 4.

Урок 11. Задача 4.

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var a, b : integer;

begin
  a := 35;
  b := 117;
  while (a < b) do
    begin
      a := a + 1;
      if (a mod 2 = 0) or (a mod 2 <> 0) and (a >= 45) and (a <= 99) then
        write(a, ' ');
    end;
  readln();
end.