program main
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32):: n, ni

    read*, n
    ni = mod(n,10)

    if (ni==3) then
        print'(a)', 'bon'
    else if (ni==0 .or. ni==1 .or. ni==6 .or. ni==8) then
        print'(a)', 'pon'
    else
        print'(a)', 'hon'
    end if
end program main