program main; 
var a : integer;
begin
    readln(a);
    if (a > 10) then 
        repeat 
            dec(a,10);
        until (a <= 10);
        case a of
            2,4,5,7,9 : writeln('hon');
            0,1,6,8 : writeln('pon');
            3 : writeln('bon');
        end;
end.