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

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

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