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

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

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i: integer;
begin
  i:=35;
  while i<=117 do
  begin
     if ((i mod 2)<>0) and ((i mod 3)=0)  then
     writeln (i);
     i:=i+1;
  end;
readln();
end.