	  IDENTIFICATION DIVISION.
      PROGRAM-ID. 046A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 INP PIC 9(11).
      01 A   PIC 9(3).
      01 B   PIC 9(3).
      01 C   PIC 9(3).     
      PROCEDURE DIVISION.
      ACCEPT INP.
      UNSTRING INP DELIMITED " "
      INTO A B C.
      IF A = B AND B = C
      THEN
      	DISPLAY "1"
      ELSE
        IF (A = B AND A NOT = C ) OR
      	   (A = B AND B NOT = C ) OR
      	   (A = C AND A NOT = B ) OR
	  	   (A = C AND C NOT = B ) OR
	       (B = C AND B NOT = A ) OR
	       (B = C AND C NOT = A ) 
 	      	DISPLAY "2"
      	ELSE
    		IF A NOT = B  AND B NOT = C
      			DISPLAY "3"
      		ELSE
      			CONTINUE
      		END-IF
		END-IF
      END-IF.
      STOP RUN.