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

Задача 6 Урок 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
        writeln(i,' ');
  readln();
end.