program bai_giai;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
writeln('a. Do dai cua xau la: ',length(s));
st:='';
for i:=1 to length(s) do
if (s[i] in ['A'..'Z']) or (s[i] in ['0'..'9']) then st:=st+s[i];
if length(st)=0 then write('b. XAU RONG') else write('b. ',s);
readln;
end.