Pascal Урок 11 Задача 3 Решение

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

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

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