Задача 3 урок 11

Задача 3 урок 11

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

program programma3;
var i : integer;
begin
  i:=35;
   while i<=117 do
   begin
    if (i mod 2 = 1) and (i mod 3 = 0)  then
    write(i,' ');
    i:=i+1;
   end;
  readln();
end.