program gkhk;
var s:string;
   function sum(st:string):integer;
   var i,k,d,s:integer;
   begin
   s:=0;
      for i:=1 to length(st) do begin
      val(st[i],d,k);
      if k=0 then s:=s+d;
      end;
   sum:=s;
   end;
Begin
writeln('введите строку'); readln(s);
writeln(sum(s));
readln;
End.