Урок №11 Задание 3

Урок №11 Задание 3

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

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

Консоль:

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