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

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

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

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