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

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

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

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