uses wincrt;
var
a,y,b:string;
sayi:array[1..20]of string;
s,uzn:integer;
begin
write('BIR SAYI GIRINIZ:');
readln(a);
uzn:=length(a);
if uzn<=4 then begin
for s:=1 to uzn do begin
if a[s]='1' then sayi[s]:='bir';
if a[s]='2' then sayi[s]:='iki';
if a[s]='3' then sayi[s]:='uc';
if a[s]='4' then sayi[s]:='dort';
if a[s]='5' then sayi[s]:='bes';
if a[s]='6' then sayi[s]:='alti';
if a[s]='7' then sayi[s]:='yedi';
if a[s]='8' then sayi[s]:='sekiz';
if a[s]='9' then sayi[s]:='dokuz';
if a[uzn-1]='1' then sayi[uzn-1]:='on';
if a[uzn-1]='2' then sayi[uzn-1]:='yirmi';
if a[uzn-1]='3' then sayi[uzn-1]:='otuz';
if a[uzn-1]='4' then sayi[uzn-1]:='kirk';
if a[uzn-1]='5' then sayi[uzn-1]:='elli';
if a[uzn-1]='6' then sayi[uzn-1]:='altmis';
if a[uzn-1]='7' then sayi[uzn-1]:='yetmis';
if a[uzn-1]='8' then sayi[uzn-1]:='seksen';
if a[uzn-1]='9' then sayi[uzn-1]:='doksan';
end;
end;
if uzn=1 then writeln(sayi[1]);
{*********************************************************}
if uzn=2 then writeln(sayi[uzn-1]+sayi[uzn]);
{*********************************************************}
if uzn=3 then if a[1]='1' then begin
if a[1]='0' then y:='' else y:='yuz';
writeln(y+sayi[uzn-1]+sayi[uzn]);
end
else
begin
if a[1]='0' then y:='' else y:='yuz';
writeln(sayi[1]+y+sayi[uzn-1]+sayi[uzn]);
end;
{*********************************************************copyright hacker by infaz***unbl0ck.team}
if uzn=4 then begin
if a[1]='1' then begin
if a[2]='0' then begin y:=''; end
else begin y:='yuz'; end;
if a[2]='1' then sayi[2]:='';
writeln('bin'+sayi[2]+y+sayi[uzn-1]+sayi[uzn]);
end
else
begin
if a[2]='0' then begin y:=''; sayi[2]:=''; end
else begin y:='yuz'; end;
if a[1]='0' then begin b:=''; end
else begin b:='bin'; end;
if a[2]='1' then sayi[2]:='';
writeln(sayi[1]+b+sayi[2]+y+sayi[uzn-1]+sayi[uzn]);
end;
end;
end.