IDENTIFICATION DIVISION.
        PROGRAM-ID. ABC215-A.
      
        ENVIRONMENT DIVISION.
      
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 S PIC X(15).
      
        PROCEDURE DIVISION.
      	MAIN.
		ACCEPT S.
      		IF S = "Hello,World!" THEN
      			DISPLAY "AC"
      		ELSE
      			DISPLAY "WA"
      		END-IF.
	STOP RUN.