      PROGRAM piyo
      IMPLICIT NONE
      integer :: n
      
      read*,n
      
      n = n - n/10*10
      
      select case( n )
        case( 2,4,5,7,9 )
          print*,'hon'
        case( 0,1,6,8 )
          print*,'pon'
        case( 3 )
          print*,'bon'
          
      end select
      
      
      
      
      END PROGRAM