function fact(n:integer):longint;
begin
if n=1 then fact:=1
         else fact:=fact(n-1)*n;
end;
 
{Просто вставь в программу и пользуйся ))}