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

procedure Solve is
   N : Integer;
begin
   Get (N);
   N := N-N/10*10;
   if N = 3 then
      Put_Line ("bon");
   elsif N = 0 then
      Put_Line ("pon");
   elsif N = 1 then
      Put_Line ("pon");
   elsif N = 6 then
      Put_Line ("pon");
   elsif N = 8 then
      Put_Line ("pon");
   else
      Put_Line ("hon");
   end if;
end Solve;