program pascal;
uses crt;
type a= array [1..100,1..100] of integer;
var x:a; i,j,n,f,s,k,d,e,b:integer;
begin
clrscr;
write('enter n in matrix n * n:');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
write('enter number x[',i,' , ',j,']:');
readln(x[i,j])...