求5个数的阶乘

求5个数的阶乘

function jiecheng(N:integer):real;
var
  m:real;
begin
m:=1;
  for i:=1 to N do
    m:=m*i;
  result:=m;
end;

分享下。3Q