uses crt;
var n,i,count: longint;
a:array[1..1000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
if(a[i] < 0) then inc(count);
end;
writeln('Co ',count,' so am');
readln;
if(count <= 0) then
begin
readln;
exit;
end
else
begin
write('Vi tri cac so am: ');
for i:=1 to n do
if(a[i] < 0) then write(i,' ');
readln;
exit;
end;
readln; readln;
end.