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

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

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

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