Написать программу которая находит произведение n первых натуральных чисел . число n вводится с клавиатуры. выполнить программу для n=9 записать результат.

Cont n=9;
var i,p:integer;
begin
p:=1;
for i:=1 to n do p:=p*i;
writeln("Произведение первых ",n," чисел = ",p);
end.