program sample
	implicit none
    integer :: x,y
    
    read(*,*) x
    
    y=mod(x,10)
    
    if (y==2 .or. y==4 .or. y==5 .or. y==7 .or. y==9) then
    	write(*,*) 'hon'
    else if (y==3) then
    	write(*,*) 'bon'
    else
    	write(*,*) 'pon'
	end if

    stop
end program sample