uses crt;
var i,n,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');readln(a[i]);
if a[i]<0 then inc(d);
end;
if d=0 then writeln('0') else
begin
write('Cac so am co trong mang: ');
for i:=1 to n do if a[i]<0 then write(a[i],' '); writeln;
write('Vi tri cac so am co trong mang: ');
for i:=1 to n do if a[i]<0 then write(i,' '); writeln;
end;
readln
end.