CP502: Example code.

Here is one solution


       for row  1 to n do

          for column  1 to n do

              if a[row,column] != a[column,row] then

                  symmetric  false

              endif

          endfor

      endfor

It is not necessarily the only solution.