Pascal урок 10.1. задача 6

Выведите на экран, все числа делящиеся на 3 из диапазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

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