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

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

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

program u11z3;
var a :integer;
begin
a:=38;
  while (a > 37) and (a < 117) do
  begin
  a:= a + 1;
  if (a mod 2=1) and (a mod 3 =0) then
  write(a, ' ');
  end;
 readln();
end.