1 开始的连续自然数相乘叫做阶乘.编写一个求n!的函数,调用此函数求:D＝

var
n:longint;
function d(m:longint):longint;
var
i:longint;
begin
d:=1;
for i:=1 to m do
d:=d*i;
end;
begin
readln(n);
writeln(d(n));
end.
没编译直接打的,大体思路是这样,有错误自行编译修改