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

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

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