Отыскать творенье естественных чисел от 8 до 15

program zz1;
var i,p:integer; // заводим переменные
begin
p:=1; // задаем изначальное значение произведения
for i:=8 to 15 do // перебираем в цикле все естественные числа от восьми до пятнадцати
p:=p*i; // обретаем творенье значений всех натуральных чисел в заданном диапазоне
write(творение всех естественных чисел = ,p); // выводим ответ
end.