program problemA
  implicit none

integer :: K,a,b
integer :: N



read(*,*) N

a=N/100
N=N-a*100
a=N/10
N=N-a*10


if (N==0) then
  write(*,*) 'pon'
else if (N==1) then
  write(*,*) 'pon'
else if (N==2) then
  write(*,*) 'hon'
else if (N==3) then
  write(*,*) 'bon'
else if (N==4) then
  write(*,*) 'hon'
else if (N==5) then
  write(*,*) 'hon'
else if (N==6) then
  write(*,*) 'pon'
else if (N==7) then
  write(*,*) 'hon'
else if (N==8) then
  write(*,*) 'pon'
else if (N==9) then
  write(*,*) 'hon'
end if





stop
end program
