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

procedure main is
   N: Integer;
begin
   get(N);
   N := N rem 10;
   if (N = 0) then put_line("pon");
   elsif (N = 1) then put_line("pon");
   elsif (N = 2) then put_line("hon");
   elsif (N = 3) then put_line("bon");
   elsif (N = 4) then put_line("hon");
   elsif (N = 5) then put_line("hon");
   elsif (N = 6) then put_line("pon");
   elsif (N = 7) then put_line("hon");
   elsif (N = 8) then put_line("pon");
   else put ("hon");
   end if;
end main;