var n,i,demchan,demle:integer;
a:array[1..100] of integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
repeat
begin
write('a[',,']='); readln(a);
if a<0 then write('nhap laiso duong');
end;
until a>0;
for i:= 1 to n do
if a mod 2 =0 then demchan:=demchan+1
else demle:=demle+1;
write('co...