PROGRAM REPEAT

IMPLICIT NONE

REAL :: x, y

CHARACTER :: Flag1, Flag2

DO

PRINT *, "Enter x followed by y"

READ *, x, y

PRINT *, "Press 1 for x*y"

PRINT *, "Press 2 for x+y"

READ *, Flag1

IF (Flag1=="1") THEN

PRINT *, "x*y= ", x*y

END IF

IF (Flag1=="2") THEN

PRINT *, "x+y= ", x+y

END IF

PRINT *, "Continue (Y/N)"

READ *, Flag2

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

EXIT

END IF

END DO

END PROGRAM REPEAT