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

Урок 11

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

var a: integer;

begin
  a := 35;

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

end.

КОНСОЛЬ

39
45
51
57
63
69
75
81
87
93
99
105
111
117