Option Explicit On

Module Module1

    Sub Main()

        Dim N As String = Console.ReadLine()
        Dim ans As String = ""

        Select Case Right(N, 1)

            Case 3
                ans = "bon"
            Case 0, 1, 6, 8
                ans = "pon"
            Case Else
                ans = "hon"
        End Select

        Console.WriteLine(ans)

    End Sub

End Module
