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

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

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

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