program USEMODULE1

Use Module1

implicit none

INTEGER :: k

PRINT *, "Enter k"

READ *, k

print *, Fact(k), Add(k)

end program USEMODULE1