program prob19
    implicit none
    integer :: s
    read(*,*) s
    s = mod(s,10)

    select case(s)
    case(3)
        write(*,'(a)') "bon"
    case(2,4,5,7,9)
        write(*,'(a)') "pon"
    case default
       write(*,'(a)') "hon"
    end select



    stop
contains
end program prob19