Найти произведение четных чисел от 1 до 15

program zz1;

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

begin

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

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

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

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

writeln (' произведение последовательных натуральных четных чисел от 1 до 15 = ', s); / / выводим ответ

end.