Задача 6 Урок 10

Задача 6 Урок 10

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

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