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