Pascal урок 10.1 задача 5

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

1

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

2

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