Решение задачи 6 из главы 10.1

Решение задачи 6 из главы 10.1

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

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