*==============================================================
*  MAINROUTINE
*==============================================================
      PROGRAM MAIN

      INTEGER N,KEKKA,KAIFUN

      READ(5,*)N

      KEKKA=KAIFUN(N)
	
      WRITE(6,*)N,KEKKA

      STOP
      END

*==============================================================
*  FUNCTION
*==============================================================
      INTEGER FUNCTION KAIFUN(A)
      INTEGER A,I

      KAIFUN=1

      DO 10 I=A,1,-1
        KAIFUN=KAIFUN*I
   10 CONTINUE

      RETURN
      END