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

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

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

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