program so_can_bang;
uses crt;
var A:array[1..10000] of longint;
n,i,d:integer;
{---CT-con---}
function kt(k:longint):boolean;
var dc,dl:byte;
m:integer;
begin
dc:=0; dl:=0;
while k>0 do
begin
m:=k mod 10;
if m mod 2=0 then dc:=dc+1 else dl:=dl+1;
k:=k div 10;
end;
if dc=dl then kt:=true else kt:=false;
end;
{---CT-chinh---}
BEGIN
clrscr;
d:=0;
write('Nhap so luong phan tu: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
if kt(A[i]) then d:=d+1;
end;
write('Co ',d,' so can bang');
readln;
end.
