Задача 4 урок 10.1

Задача 4 урок 10.1

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

var i:integer;
begin
for i:= 35 to 117 do
  if ((i mod 3) = 0) and ((i mod 2)=0) then 
    write(i, ' ');
end.