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

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

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

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