Pascal урок 11 задача 4

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

1.

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

2.

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