with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;

procedure Main is
	x:Integer;
begin
	get(x);
    x:=x mod 10;
    if x=2 or x=4 or x=5 or x=7 or x=9 then
    put_line("hon");
    elsif x=0 or x=1 or x=6 or x=8 then
    put_line("pon");
    else
    put_line("bon");
    end if;
end Main;