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.

uses crt;
var n:longint;
begin
clrscr;
   write('Nhap vao 1 so co 2 chu so: ');readln(n);
   if n div 10=1 then write('muoi ');
   if n div 10=2 then write('hai muoi ');
   if n div 10=3 then write('ba muoi ');
   if n div 10=4 then write('bon muoi ');
   if n div 10=5 then write('nam muoi ');
   if n div 10=6 then write('sau muoi ');
   if n div 10=7 then write('bay muoi ');
   if n div 10=8 then write('tam muoi ');
   if n div 10=9 then write('chin muoi ');
   if n mod 10=1 then write('mot ');
   if n mod 10=2 then write('hai ');
   if n mod 10=3 then write('ba ');
   if n mod 10=4 then write('bon');
   if n mod 10=5 then write('lam ');
   if n mod 10=6 then write('sau ');
   if n mod 10=7 then write('bay ');
   if n mod 10=8 then write('tam ');
   if n mod 10=9 then write('chin ');
readln
end.