Дано масив А[1.. n, 1.. n]. Скласти програму пошуку всіх індексів елементів [i, j] таких, що Aij=Aji.

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.