PROGRAM KAIJO
      INTEGER*4 I,N
      WRITE(*,*) 'N='  
      READ(*,*) N  
      KAIJO=1
      DO I=2,N
          KAIJO=KAIJO*I
      END DO
      WRITE(*,*) 'N!=',KAIJO
      RETURN
      END