const
n = 4;
var
a: array [1 .. n, 1 .. n] of integer;
i, j, c, m, tempj: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := 20 - random(40);
write(' ', a[i, j]:3);
end;
writeln();
end;
tempj := -1;
for j := 1 to n do
begin
c := 0;
for i := 1 to m do
if a[i, j] > 0 then
Inc(c)
else if a[i, j] < 0 then
Dec(c);
if c = 0 then
tempj := j;
end;
writeln('----');
writeln(tempj);
end.