program test3;
var
s,i:integer;
function f1(n:integer):integer;
var
j,t:integer;
begin
t:=1;
for j:=n downto 1 do t:=t*j;
f1:=t;
end;{end function}

begin {main}
s:=0;
for i:=1 to 5 do s:=s+f1(i);
writeln('s=',s);
end.

输出：s=153