PROGRAM PROG_MODULE_SUM7

USE MODULE_SUM7

IMPLICIT NONE

INTEGER :: K

CHARACTER :: Flag

DO

PRINT *, "Enter a positive integer K, which is greater than or equal to 10."

READ *, K

PRINT *, "The required sum is: ", Sum7(K)

PRINT *, "Continue? If not, press ""n"" or ""N""; else press any other key."

READ *, Flag

IF ((Flag=="n") .OR. (Flag=="N")) THEN

EXIT

END IF

END DO

END PROGRAM PROG_MODULE_SUM7