IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 I        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(10).

       PROCEDURE DIVISION.
         ACCEPT STR
         MOVE STR TO A
         ACCEPT STR
         MOVE STR TO B
         ADD A TO B
         PERFORM
           VARYING I FROM 1 BY 1
             UNTIL I > 10
           IF  B(I : 1) > '0' OR I = 10
             DISPLAY B(I : )
           END-IF
         END-PERFORM
         STOP RUN.