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

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

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

var a, b : integer;

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