Задача №4 из главы 12.1
Решите с помощью цикла repeat/until:
Выведите на экран, все нечетные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.
var i: integer;
begin
i := 35;
repeat // начало тела цикла
if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
write(i, ' ');
i := i + 1; // увеличиваем счетчик на 1
until (i > 117); // выход из цикла только если счетчик станет больше n
readln();
end.