program PascalGuru;

var A:array [1..50,1..50] of integer;
i,j,m,summa:integer;

begin
write('M= '); readln(m);

for i:=1 to m do
for j:=1 to m do begin write('A[',i,',',j,']='); readln(A[i,j]); end;

for i:=1 to m do begin writeln;
for j:=1 to m do write (A[i,j]:8); end;
{******************************************}
writeln;writeln;

for i:=1 to m do
if (A[i,i]=0) then {glavnaya diagonali}
begin
summa:=0;
for j:=1 to m do summa:=summa+A[j,i];
writeln('V ',i,' stolbce summa ravna: ',summa)
end
else {pobochnaya diagonali}
if (A[i,m+1-i]=0) and (A[m+1-i,m+1-i]<>0) then
begin
summa:=0;
for j:=1 to m do summa:=summa+A[j,m+1-i];
writeln(i,'V ',m+1-i,' stolbce summa ravna: ',summa)
end;

readln;
end.