IDENTIFICATION DIVISION.
PROGRAM-ID. 168A.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 N          PIC 9(03).
*>
PROCEDURE DIVISION.
  ACCEPT N.
*>
  EVALUATE N(3:1)
    WHEN '2'
    WHEN '4' 
    WHEN '5'
    WHEN '7'
    WHEN '9'
      DISPLAY 'hon'
    WHEN '0'
    WHEN '1'
    WHEN '6'
    WHEN '8'
      DISPLAY 'pon'
    WHEN '3'
      DISPLAY 'bon'
  END-EVALUATE. 
*>
  STOP RUN.
