uses crt;

var s : string;

    i, x, a : integer;

begin

clrscr;

write('Nhap day ki tu = '); readln(s);

write('Chu so : '); x := 0;

for i := 1 to length(s) do

    if s[i] in ['0' .. '9'] then

        begin

            write(s[i],' '); val(s[i], a);

            x := x + a;

        end;

writeln; write('Chu cai : ');

for i := 1 to length(s) do

    if s[i] in ['A' .. 'z'] then write(s[i],' ');

writeln; write('Tong cac chu so trong day = ', x);

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.