var i,r,a:integer;
begin cls;r:=0;For i:=1 to 4 dobeginread(a);if a mod 2 = 0 then inc(r);end;
writeln('chetnyh = ',r);readln;end
