program PascalGuru;
 
var A:array [1..50,1..50] of integer;
    i,j,n:integer;
    diag,vise,nije:integer;
 
{-------------------------------------------}
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('Ishodnyi:');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:8);  end;
{******************************************}
diag:=0; vise:=0; nije:=0;
 
for i:=1 to n do
for j:=1 to n do
    begin
    if (i=j) and (A[i,j]=0) then inc(diag);
    if (i<j) and (A[i,j]=0) then inc(vise);
    if (i>j) and (A[i,j]=0) then inc(nije);
    end;
 
 
{******************************************}
writeln;
writeln;writeln('Rezulitaty:');
 
writeln('Kol-vo VISE glavnoi diagonali: ',vise:5);
writeln('Kol-vo NA glavnoi diagonali: ',  diag:7);
writeln('Kol-vo NIJE glavnoi diagonali: ',nije:5);
 
readln;
end.