uses crt;
var xau: string;
    i,s,tam:longint;
begin
clrscr;
write('Nhap xau: '); readln(xau);
write('Cac chu so trong xau tren la: ');
for i:=1 to length(xau) do
if xau[i] in ['0'..'9'] then
begin
write(xau[i],',');
val(xau[i],tam);
s:=s+tam;
end;
writeln;
write('Cac chu cai la trong xau tren la: ');
for i:=1 to length(xau) do
if (xau[i] in ['a'..'z']) or (xau[i] in ['A'..'Z']) then write(xau[i],',');
writeln;
write('Tong cac chu so trong xau tren la: ',s);
readln
end.

uses crt;
var s: string;
    i,t,p: integer;
begin
clrscr;
    readln(s);
    write('Cac chu so la: ');
    for i:=1 to length(s) do if s[i] in ['0'..'9'] then begin
        write(s[i],' ');
        val(s[i],p);
        t:=t+p;
    end;
    writeln;
    write('Cac chu la: ');
    for i:=1 to length(s) do if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then write(s[i],' ');
    writeln;
    writeln('Tong cac chu so: ',t);
    readln
end.