uses crt;
var a:qword;
    t,t1,m:word;
begin
    clrscr;
    readln(a);
    t:=0;t1:=0;
    while a<>0 do
        begin
            m:=a mod 10;
            if m mod 2 = 0 then t:=t+m
                else t1:=t1+m;
            a:=a div 10;
        end;
    writeln(t=t1);
readln;
end.

program Hello;
uses crt;
var n: qword;
    tc,tl:longint;
begin
    writeln('nhap n: ');
    readln(n);
    while n > 0 do 
        begin
            if (n mod 10) mod 2 = 0 then 
                tc:= tc + n mod 10
            else 
                tl:= tl + n mod 10;
            n:= n div 10;
        end;
    if tc = tl then 
        writeln('La so can bang.')
    else 
        writeln('Khong la so can bang.');
readln;
end.