program main
  implicit none
  integer :: n, m
  read *, n
  m = modulo(n, 10)
  if (m == 3) then
    print "(a)", "bon"
  else if ((m == 0 .or. m == 1) .or. (m == 6 .or. m == 8)) then
    print "(a)", "pon"
  else
    print "(a)", "hon"
  end if
end program main
