PROGRAM Fact_Int_FuncPROGRAM Fact_Int_Func
IMPLICIT NONE
INTEGER :: N
PRINT *, “Enter a positive integer N”
READ *, N
PRINT *, N,”!= “, Fact(N)
CONTAINS
            FUNCTION FACT(K)
                        INTEGER :: FACT, I
                        INTEGER, INTENT(IN) :: K
                        FACT=1
                                    DO I=1, K
                                                FACT=FACT*I
                                    END DO
            END FUNCTION FACT
END PROGRAM Fact_Int_Func