На отрезке от 8 до 16 найти произведение чисел, которые делятся на 3

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

r:=1; / / задаем начальное значение для произведения

for i:=8 to 16 do / / организуем цикл, в котором переберем все числа от 8 до 16

if i mod 3 = 0 / / проверяем условие, если очередное число при делении на три в остатке дает ноль, то

then r:=r * i; / / умножаем это число на произведение

write (' сумма чисел от ', a,' до ', b,' = ', r); / / выводим ответ

end.