Задача 5 урок 10.1

Задача 5 урок 10.1

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

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