Составьте программу для вычисления произведения - Pascal ABC

Составить программу для вычисления произведения:

Листинг программы

p:=1;
for k:=1 to 15 do
if k mod 3=0 then p:=p*(1+exp(sin(k));

Объяснение кода листинга программы

Создается переменная p со значением 1.
Запускается цикл for, который выполняется 15 раз.
На каждой итерации цикла проверяется условие k % 3 = 0. Если это условие истинно, то значение переменной p умножается на (1 + exp(sin(k))).
После выполнения всех итераций цикла, значение переменной p будет равно произведению 1 и суммы экспонент синусов всех чисел от 1 до 15, деленной на 3.