      IDENTIFICATION DIVISION.
      PROGRAM-ID. 129A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 P PIC 9(3).
      01 Q PIC 9(3).
      01 R PIC 9(3).
      
      01 ANS1 PIC 9(4).
      01 ANS2 PIC 9(4).
      01 ANS3 PIC 9(4).
      01 ANSS PIC Z(4).
 
      PROCEDURE DIVISION.
      ACCEPT P.
      ACCEPT Q.
      ACCEPT R.
      
      COMPUTE ANS1 = P + Q. 
      COMPUTE ANS2 = Q + R. 
      COMPUTE ANS3 = R + P.
      
      IF ANS1 < ANS2
      THEN
      	IF ANS1 < ANS3
      	THEN
      		MOVE ANS1 TO ANSS
      		DISPLAY ANSS
      	ELSE
      		MOVE ANS3 TO ANSS
      		DISPLAY ANSS
      	END-IF
      ELSE
      	IF ANS2 < ANS3
      	THEN
      		MOVE ANS2 TO ANSS
      		DISPLAY ANSS
      	ELSE
      		MOVE ANS3 TO ANSS
      		DISPLAY ANSS
      	END-IF
      END-IF.
      
      STOP RUN.