function factorial(n: integer):longint;
 begin
 if n = 1 then
  factorial:= 1
 else 
  factorial:= n*factorial(n-1);
 end;