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

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

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

var i:integer;

begin
  for i:= 35 to 117 do
    if (((35<=i)and(i<=117))and((i mod 2)=0))or((((45<=i)and(i<=99))and((i mod 2)=1))) then
      write(i, ' ');

  readln();
end.