uses crt;
var a:array[1..1000]of char; f:text; n:longint;
procedure doc;
        begin
         assign(f,'XAUSO.INP');
         reset(f);
         n:=0;
         while not(eoln(f)) do
                begin
                 inc(n);
                 read(f,a[n]);
                end;
         close(f);
        end;
procedure ghi;
var c,e,i,s,dem:longint;
        begin
         assign(f,'XAUSO.OUT');
         rewrite(f);
         s:=0;
         dem:=0;
         for i:=1 to n do if(a[i] in ['0'..'9'])then
                begin
                 inc(dem);
                 val(a[i],c,e);
                 s:=s+c;
                end;
         writeln(f,'So ki tu so: ' ,dem);
         write(f,'Tong: ',s);
         close(f);
        end;
begin
 clrscr;
  doc;
  ghi;
 readln;
end.

#vudaoduyhung 

var v,r:text;
s:string;
a,code,i,sum,d:integer;
begin
assign(v,'xauso.inp');
reset(v);
readln(v,s);
assign(r,'xauso.out');
rewrite(r);
for i:=1 to length(s) do
 if s[i] in ['0'..'9'] then
 begin
  d:=d+1;
  val(s[i],a,code);
  sum:=sum+a;
 end;
writeln(r,d);
writeln(r,sum);
close(r);
end.