000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. ABA.
000021 DATA DIVISION.
000022 WORKING-STORAGE SECTION.
000023 01 S PIC X(05).
000024 01 S1 PIC X(02).
000025 01 S2 PIC X(02).
000028 01 A PIC 9(02).
000029 01 B PIC 9(02).
000030 01 C PIC 9(02).
000040 PROCEDURE DIVISION.
000050 MAIN SECTION.
000100     ACCEPT S FROM SYSIN.
000101     UNSTRING S DELIMITED BY SPACE INTO S1, S2.
000102     MOVE S1 TO A.
000103     MOVE S2 TO B.
000104     IF FUNCTION MOD(B,A) = ZERO THEN
000105         COMPUTE C = A + B
000106     ELSE
000107         COMPUTE C = B - A
000108     END-IF.
000110     DISPLAY C(2 - FUNCTION INTEGER(FUNCTION LOG10(C)):)
           UPON SYSOUT.
000200 	   STOP RUN.