uses crt;
type vitri=array[1..3] of integer;
so=array[1..9] of string;
var s,dem,i:integer;
Vt:vitri;
doc:so;
procedure docso(n:integer);
begin
doc[1]:='mot';

doc[2]:='hai';

doc[3]:='ba';

doc[4]:='bon';
doc[5]:='nam';

doc[6]:='sau';

doc[7]:='bay';

doc[8]:='tam';

doc[9]:='chin';
write(doc[n]);
end;
begin
clrscr;
repeat
write('Nhap so can doc ');readln(s);
until (s>=100) and (s<=999);
for i:=1 to 3 do
begin
vt[4-i]:=s mod 10;
s:=s div 10;
end;
docso(VT[1]);
write(' tram ');
if VT[2]=1 then write('') else docso(VT[2]);
if VT[2]=0 then write('le ') else write(' muoi ');

docso(VT[3]);

readln;
end.

Nếu đọc sai thì nói mình nhé.

===============================

program Hello;
uses crt;
var n:string;
    i:byte;
function tm(x:byte): string;
begin
    if i = 1 then
        write('tram ');
    if i = 2 then
        write('muoi ');
end;
function doc(y:string):string;
begin
    while length(n) <= 2 do
        n:= ' ' + n;
    for i:= 1 to 3 do
        begin
            if n[i] = '0' then
                begin
                    if (i = 2) and (n[1] <> ' ') and (n[3] <> '0') then
                        write('linh ');
                end;
            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
                begin
                    write('hai ');
                    tm(i);
                end;
            if n[i] = '3' then
                begin
                    write('ba ');
                    tm(i)
                end;
            if n[i] = '4' then
                begin
                    write('bon ');
                    tm(i);
                end;
            if n[i] = '5' then
                begin
                    write('nam ');
                    tm(i);
                end;
            if n[i] = '6' then
                begin
                    write('sau ');
                    tm(i);
                end;
            if n[i] = '7' then
                begin
                    write('bay ');
                    tm(i);
                end;
            if n[i] = '8' then
                begin
                    write('tam ');
                    tm(i)
                end;
            if n[i] = '9' then
                begin
                    write('chin ');
                    tm(i);
                end;
        end;
end;
begin

    clrscr;
    readln(n);
    doc(n);
end.