program PascalGuru;
uses crt;
 
var A:array[1..50,1..50] of integer;
    SUMMA:array[1..50] of integer;
    i,j,n,min:integer;
 
function sum_stolb(j:integer):integer;
var rez:integer;
begin
rez:=0;
 for i:=1 to n do
  if A[i,j]>0 then rez:=rez+A[i,j];
 
sum_stolb:=rez;
 end;
 
{----------------------------------------------------}
begin
write('Razmer matritsy= '); readln(n);
 
for i:=1 to n do
for j:=1 to n do begin write ('A[',i,',',j,']= '); readln (A[i,j]); end;
 
clrscr;
write('Matritsa:');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:8);  end;
writeln;writeln;
 
for j:=1 to n do SUMMA[j]:=sum_stolb(j);
 
 
min:=1;
for i:=2 to n do
if SUMMA[i]<SUMMA[min] then min:=i;
 
 
writeln('Otvet: ',min);
 
 
readln;
end.