IDENTIFICATION DIVISION.
PROGRAM-ID. PROGRAM_ID.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 LN           PIC X(500).
01 N            PIC 9(3).
01 cur          PIC 9(10) VALUE 1.
01 i            PIC 9(18) VALUE 1.
01 j            PIC 9(18).
01 len          PIC 9(10). 
01 A            PIC 9(4) VALUE 1.
01 FLG          PIC 9(1) VALUE 1.

PROCEDURE DIVISION.
MAIN.
  ACCEPT N.
  ACCEPT LN.
  PERFORM N TIMES
      PERFORM VARYING j FROM cur BY 1  UNTIL LN(j:1) = SPACE
      END-PERFORM
      COMPUTE len = j - cur
      MOVE LN(cur:len) TO A
      IF FUNCTION MOD(A, 2) = ZERO AND FUNCTION MOD(A, 3) NOT = ZERO
          AND FUNCTION MOD(A, 5) NOT = ZERO
          MOVE ZERO TO FLG
          EXIT PERFORM
      END-IF
      COMPUTE cur = j + 1
      ADD 1 TO i
  END-PERFORM.
  IF FLG = 1
      DISPLAY "APPROVED"
  ELSE
      DISPLAY "DENIED"
  END-IF.

MAIN-EXIT.
  STOP RUN.
