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