Module Program
    Sub Main(args As String())
        Dim iInput As Integer = Console.ReadLine()

        If {2, 4, 5, 7, 9}.Contains(Right(iInput, 1)) Then
            Console.WriteLine("hon")
        ElseIf {0, 1, 6, 8}.Contains(Right(iInput, 1)) Then
            Console.WriteLine("pon")
        Else
            Console.WriteLine("bon")
        End If
    End Sub
End Module