      IDENTIFICATION DIVISION.
      PROGRAM-ID. 049A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 C PIC X(1).
      
      PROCEDURE DIVISION.
      ACCEPT C.
      EVALUATE C
      WHEN "a"
      WHEN "i"
      WHEN "u"
      WHEN "e"
      WHEN "o"
      	DISPLAY "vowel"
      WHEN OTHER
      	DISPLAY "consonant"
	  END-EVALUATE.     
      
      STOP RUN.