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

http://fkn.ktu10.com/?q=node/8612
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

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