program main
character*3 :: n
character*1 :: m
read(*,*)n
m = ADJUSTR(n(1:1))
if(m == '3') then
write(*,*)'bon'
else if (m == '0' .or. m == '1' .or. m == '6' .or. m =='8') then
write(*,*)'pon'
else
write(*,*)'hon'
end if
end program