program LN;
uses crt;
var s:string;
    i:integer;
begin
clrscr;
writeln('Nhap vao 1 chuoi bat ki: ');
readln(s);
for i:= 1 to length(s) do
 if s[i] = ' ' then delete(s,pos(' ',s),1);
writeln(s);
for i:= 1 to length(s) do
        begin
        if s[i] = '0' then write('zero ');
        if s[i] = '1' then write('one ');
        if s[i] = '2' then write('two ');
        if s[i] = '3' then write('three ');
        if s[i] = '4' then write('four ');
        if s[i] = '5' then write('five ');
        if s[i] = '6' then write('six ');
        if s[i] = '7' then write('seven ');
        if s[i] = '8' then write('eight ');
        if s[i] = '9' then write('nine ');
        end;
readln;
end.