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

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

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

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