uses crt;
var n: integer;
a,b: string;
begin
clrscr;
write ('nhap so co hai chu so: '); readln (n);
if n div 10=1 then a:='muoi';
if n div 10=2 then a:='hai muoi';
if n div 10=3 then a:='ba muoi';
if n div 10=4 then a:='bon muoi';
if n div 10=5 then a:='nam muoi';
if n div 10=6 then a:='sau muoi';
if n div 10=7 then a:='bay muoi';
if n div 10=8 then a:='tam muoi';
if n div 10=9 then a:='chin muoi';
if n mod 10=0 b:='';
if n mod 10=1 b:='mot';
if n mod 10=2 b:='hai';
if n mod 10=3 b:='ba';
if n mod 10=4 b:='bon';
if n mod 10=5 b:='nam';
if n mod 10=6 b:='sau';
if n mod 10=7 b:='bay';
if n mod 10=8 b:='tam';
if n mod 10=9 b:='chin';
writeln (a,' ',b);
readln;
end.
