uses crt;
var f:text; n,i,d:longint; a:array[1..1000000]of longint;
function kt(a:longint):boolean;
var d1,d2:longint;
begin
   d1:=0; d2:=0;
   repeat
      if a mod 10 mod 2=0 then inc(d1) else inc(d2);
      a:=a div 10;
   until a=0;
   kt:=d1=d2;
end;
begin
clrscr;
   assign(f,'DULIEU.INP');reset(f);
      readln(f,n);
      for i:=1 to n do 
         begin
            read(f,a[i]);
            if kt(a[i]) then inc(d);
         end;
   close(f);
   writeln('Co ',d,' so can bang');
readln
end.

program bai_giai;
uses crt;
var f:text;
    n,d:longint;
function ktcb(k:longint):boolean;
var d1,d2,a:integer;
begin
    d1:=0; d2:=0;
    while k<>0 do
        begin
            a:=k mod 10;
            if a mod 2=0 then d1:=d1+1 else d2:=d2+1;
            k:=k div 10;
        end;
    if d1=d2 then ktcb:=true else ktcb:=false;
end;
BEGIN
    clrscr;
    Assign(f,'DULIEU.INP');  reset(f);
    d:=0;
    while not eof(f) do
        begin
            read(f,n);
            if ktcb(n) then d:=d+1;
        end;
    write(d);
    readln;
end.