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

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

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

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