Задача 4 Урок 10

Задача 4 Урок 10

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

решение задачи

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