uses crt;
var n,sum,summ,i:longint;
    s:string;
begin
clrscr;
    readln(n);
    str(n,s);
    for i:=1 to length(s) do 
        if s[i] in ['0','2','4','6','8'] then sum:=sum+ord(s[i])-48 else 
            summ:=summ+ord(s[i])-48;
    write(sum=summ);
readln;
end.

program Hello;
uses crt;
var n: string;
    dc,dl,i: longint;
begin
    readln(n);
    for i:= 1 to length(n) do 
        if n[i] <> '0' then 
            if (n[i] = '1') or (n[i] = '3') or 
               (n[i] = '5') or (n[i] = '7') or (n[i] = '9') then 
                dl:= dl + 1
            else 
                dc:= dc + 1;
    if dc = dl then 
        writeln(n, ' la so can bang.')
    else 
        writeln(n, ' khong la so can bang');
readln;
end.