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

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

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

var i, a:Integer;
begin
i:=0;
a:=0;
    while i<15 do
    begin
        readln(i);
        if i<15 then
        begin
            a:=a+i;
            writeln(a);
        end
        else
            break    
    end;
end.

консоль:

36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117