 IDENTIFICATION DIVISION.
 PROGRAM-ID.     TEST101.

 DATA DIVISION.
 WORKING-STORAGE SECTION.
  01 INP.
   03 INP-O OCCURS 10.
     05 INP-C  PIC 9(1).
  01 A         PIC 9(20) VALUE ZERO.
  01 SHO       PIC 9(10).
  01 AMA       PIC 9(10) VALUE ZERO.
  01 S         PIC 9(10).
 
 PROCEDURE DIVISION.
  ACCEPT INP.
  PERFORM VARYING S FROM 1 BY 1 UNTIL S > 10
     IF INP-C(S) NUMERIC
       COMPUTE A = A + INP-C(S)
     ELSE
       CONTINUE
     END-IF
  END-PERFORM.

  DIVIDE INP BY A GIVING SHO REMAINDER AMA.
  IF AMA = ZERO
    DISPLAY 'Yes'
  ELSE
    DISPLAY 'No'
  END-IF.

  STOP RUN.