program symma;
  var str,str1:string;
      n,len,x,s,k:word;
      err:integer;
      f:text;
begin
  assign (f, 'input.txt');
  reset (f);
  readln (f,str);
  close (f);
  len:=length(str);
  n:=1;
  while n<=len do begin
   if (str[n]>'0') and (str[n]<'9') then str1:=str1+str[n] else if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
   n:=n+1;
  end;
  if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
  assign (f, 'output.txt');
  rewrite(f);
  writeln (f,'Количество: ',k);
  writeln (f,'Сумма: ',s);
  close (f);
end.