      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 ANSS1 PIC Z(4).
      01 ANSS2 PIC Z(4).
      01 ANSS3 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
      		DISPLAY ANSS1
      	ELSE
      		DISPLAY ANSS3
      	END-IF
      ELSE
      	IF ANS2 < ANS3
      	THEN
      		DISPLAY ANSS2
      	ELSE
      		DISPLAY ANSS3
      	END-IF
      END-IF.
      
      STOP RUN.