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

http://fkn.ktu10.com/?q=node/7341
Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа

program task4_lesson11;
var i:integer;
  begin
       i:=35;
       while i<=117 do
             {begin
               if (((i<=117) and ((i mod 2) = 0))) or (((i>=45) and (i<=99) and ((i mod 2) = 1))) then
               writeln(i);
               i:=i+1;
             end;}
       begin
            if ((i mod 2) = 0) then
            writeln(i);
            i:=i+1;
       end;
       i:=45;
       while i<=99 do
             begin
               if ((i mod 2) = 1) then
               writeln(i);
               i:=i+1;
             end;
  readln();
  end.