program matrica;
Var
 i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
 begin  
Writeln('Ввод ',i,' строки');
 for j:=1 to n do
  begin  
Write('A[',i,',',j,']=');  
Readln(A[i,j]);  
end;
 end;
 writeln;
  writeln('Исходная матрица:');  
for i:=1 to n do
 begin  
for j:=1 to n do   write(A[i,j],' ');  
writeln;
 end;  
 for i:=1 to n do  
for j:=i to n do  
 if a[i,j]=a[j,i] then    
Writeln(a[i,j],' i=',i,' j=',j);
End.