Решение задачи 4 из главы 11

Решение задачи 4 из главы 11

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

program Project4;
var a: integer;
begin
  a:= 35;
  while ((a >= 35) AND (a <= 117)) do
  begin
    if ((a mod 2) = 0) then
    begin
       write(a, ' ');
       a:=a+1;
    end;
    if ((a >= 45) AND (a <=99) AND ((a mod 2) = 1)) then
         write(a, ' ');
         a:=a+1;
  end;
readln();
end.