uses crt;
var s:string[50];
i,dem:integer;
ch:char;
begin
clrscr;
write('Nhap xau: '); readln(s);
writeln;
write('Xau la: ',s,', Do dai cua xau la: ',length(s));
for i:=1 to length(s) do
begin
if ('0'<=s[i]) and ('9'>=s[i]) then inc(dem);
if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);
end;
writeln;
write('So luong cac phan tu la chu so trong xau la: ',dem);
writeln;
write('So luong cac phan tu trong xau la: ',length(s));
writeln;
write('Xau in hoa la: ',s);
readln
end.