program bai_giai;

uses crt;

var a,b,c,d,sc,sl:longint;

begin

clrscr;

write('nhap a,b,c,d);readln(a,b,c,d);

sc:=0;

sl:=0;

if(a mod 2=0)then sc:=sc+a else sl:=sl+a;

if(b mod 2=0)then sc:=sc+b else sl:=sl+b;

if(c mod 2=0)then sc:=sc+c else sl:=sl+c;

if(d mod 2=0)then sc:=sc+d else sl:=sl+d;

writeln('tong le:',sl);

write('tong chan:',sc);

readln;

end.

uses crt;
var x, i, even, od: longint;
begin
clrscr;
    for i:=1 to 4 do 
        begin
            read(x);
            if x and 1 = 1 then inc(od, x)
            else inc(even, x);
        end;

    writeln(even);
    writeln(od);
readln; readln;
end.