var S,S1:string;
Sum:byte;
i,n:byte;
begin
    writeln('Nhap xau S:');
    readln(S);
    S1:='';
    for i:=1 to length(S) do
        if S[i] in ['0'..'9'] then
        begin
            val(S[i],n);
            Sum := Sum+n;
        end
        else         
        S1:=S1+S[i];
        writeln('Chuoi S1: ',S1);
        writeln('Tong cac ky tu so: ',Sum);
    readln;
end.