program fg;
var A:array[1..100,1..100] of integer;
    n,i,j:integer;
 
function sr_ar(i:integer):real;
var j,sum:integer;
begin
sum:=0;
for j:=1 to n do sum:=sum+A[i,j];
sr_ar:=sum/n;
end;
 
 
begin
write('N= '); readln(n);
 
for i:=1 to n  do
for j:=1 to n do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; writeln;
writeln('Vot vvedennaia vami Matrica "A":');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end;
 
 
writeln; writeln;
for i:=1 to n  do
for j:=1 to n do
if (i=j) and (A[i,j]<0) then writeln('SR.AR. ',i,' stroki= ',sr_ar(i):0:2);
 
 
readln;
end.