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

program zz1;

var i, p:integer; / / заводим переменные

begin

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

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

p:=p*i; / / находим произведение значений всех натуральных чисел в заданном диапазоне

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

end.