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

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

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

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