PROGRAM SUM7

IMPLICIT NONE

INTEGER :: K, MySum, i

CHARACTER :: Flag

DO

PRINT *, "Enter a positive integer K, which is greater &

&than or equal to 10."

READ *, K

MySum=0

DO i=1, K

IF (MOD(i,7)==0) THEN

MySum=MySum+i

END IF

END DO

PRINT *, "The required sum is: ", MySum

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 SUM7