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