program Tin_hoc;
uses crt;
var i,n,am,chan,tongam,tongchan:integer;
a: array [1..10000] of integer;
begin
clrscr;
write('Nhap n<=10000: ');readln(n);
while n>10000 do
begin
write('Nhap lai: ');readln(n)
end;
writeln('Nhap ',n,' phan tu <=107: ');
for i:= 1 to n do
begin
write('a[',i,'] : ');readln(a[i]);
while a[i] > 107 do
begin
write('Nhap lai: ');readln(a[i])
end;
end;
am:=0;chan:=0;tongam:=0;chan:=0;
for i:= 1 to n do begin if a[i]<0 then
begin
am:=am+1;
tongam:=tongam+a[i]
end;
if (a[i] >=0) and (a[i] mod 2=0) then
begin
chan:=chan+1;
tongchan:=tongchan+a[i]
end;
end;
writeln('Co tat ca ',am,' so hang am va tong bang ',tongam);
writeln('Co tat ca ',chan,' so hang duong va tong bang ',tongchan);
readln;
end.