program day_con;
uses crt;
var A:array[1..100] of integer;
i,n,dau,ldau,dai: integer;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin write('a[',i,']='); read(a[i]); end;
i:=0;
dau:=1;
dai:=0;
ldau:=1;
ldau:=i+1;
while i<=n do
begin
i:=i+1;
if M[i] < 0 then begin dai:=dai+1;
end;
writeln('Co ',dai,'phan tu am; Bat dau tu: ',ldau);
readln
end.