program szoveg_kivedos;
var s            :string;
    x            :real;
    o,i          :byte;
    hibapozicioja:integer;
begin
     repeat
     readln(s);
     val(s,x,hibapozicioja);
     if hibapozicioja<>0 then writeln('Nem jo, megegyszer!')
     until hibapozicioja=0;
     for i:=1 to length(s) do
      if (s[i]<>'.') and (s[i]<>'-') then
                    o:=ord(s[i])-48+o;
     writeln('Az osszeg: ',o);
     readln
end.