program Hello;
uses crt;
var n:string;
i:byte;
function tm(x:byte): string;
begin
if x = 1 then tm:= 'tram ';
if x = 2 then tm:= 'muoi ';
if x = 3 then tm:= '';
end;
function doc(y:string):string;
begin
if (n[1] = '-') then
begin
write('am ');
delete(n,1,1);
end;
while length(n) <= 2 do n:= '0' + n;
for i:= 1 to 3 do
begin
if (n[1] = '0') and (n[2] = '0') and (n[3] = '0') then
begin
write('khong');
break;
end;
if n[i] = '0' then
if (i = 2) and (n[1] <> '0') and (n[3] <> '0') then write('linh ');
if n[i] = '1' then
begin
if i = 1 then write('mot tram ');
if i = 2 then write('muoi ');
if i = 3 then write('mot ');
end;
if n[i] = '2' then write('hai ', tm(i));
if n[i] = '3' then write('ba ', tm(i));
if n[i] = '4' then write('bon ', tm(i));
if n[i] = '5' then
if (i = 3) and (n[2] <> '0') then
write('lam ')
else
write('nam ', tm(i));
if n[i] = '6' then write('sau ', tm(i));
if n[i] = '7' then write('bay ', tm(i));
if n[i] = '8' then write('tam ', tm(i));
if n[i] = '9' then write('chin ',tm(i));
end;
end;
begin
clrscr;
readln(n);
doc(n);
end.