var s:string;

i,d,x,t:longint;

begin

readln(s);d:=0;

t:=0;

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then begin val(s[i],x);t:=t+x;inc(d);end;

writeln(d);

writeln(t);

for i:=1 to length(s) do

if s[i]in['0'..'9'] then delete(s,i,1);

write(s);

readln

end.

cái này mình làm luôn nên chưa test nha!

Program NN;
Uses crt;
Var St: String;
    i,d,t: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        d:=0; t:=0;
        For i:=1 to length(St) do
        Begin
                If St[i] in ['0'..'9'] then
                Begin
                        inc(d);
                        t:=t+ord(St[i])-48;
                End;
        End;
        Writeln(d);
        Writeln(t);
        For i:=1 to length(St) do
                If St[i] in ['0'..'9'] then Delete(St,i,1);
        Write(St);
        Readln
End.