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

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

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

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