program Hello;
uses crt;
var s,s1,ts:string;
    tong,a,i:integer;
begin
    write('S = '); readln(s);
    for i:= 1 to length(s) do
        if s[i] in ['0'..'9'] then
            begin
                val(s[i],a);
                ts:= ts + s[i] + ' + ';
                tong:= tong + a;
            end
        else 
            s1:= s1 + s[i];
    delete(ts, length(ts)-2, 2);
    writeln('S1 = ', s1);
    writeln('Tong = ',ts, '= ', tong);
readln;
end.

program bai_giai;
uses crt;
var s,s1:string;
    tong,i,n,d:integer;
begin
    clrscr;
    write('S = ');  readln(s);
    s1:='';
    for i:=1 to length(s) do
        if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then s1:=s1+s[i];
    writeln('S1 = ',s1);
    tong:=0; d:=0;
    write('Tong = ');
    for i:=1 to length(s) do
        if s[i] in ['0'..'9'] then
            begin
                if d<>0 then write(' + ');
                write(s[i]);
                val(s[i],n);
                tong:=tong+n;
                d:=d+1;
            end;
    writeln(' = ',tong);
    readln;
end.