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

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.