-----------------------------------------------------------------------------------------------------------------------------------------
PROGRAM fuct
IMPLICIT NONE
INTEGER::n,t,i
REAL::s
READ*,n
t=1
s=0
DO i=1,n
t=t*i
s=s+(1/REAL(t))
END DO
PRINT*,s
END
