{* Задача 54 *}

Unit ZADACH54;
Interface
Implementation
Begin
 writeln('Определить, является ли заданная целая квадратная матрица n-ного порядка симметричной(относительно главной диагонали).');
End.

Program Project1;

Uses zadach54.pas; {* Эту строку можно удалить *}
{$APPTYPE CONSOLE}
Uses SysUtils; {* Подключение модулей *}
Const {* Константы *}
  m = 20;
Var {* В работе нам потребуются переменные: *}
  i : integer;
  j : integer;
  n : integer;
  a : Array [1..m, 1..m] Of integer;
Begin
  WRITELN('n');
  readln(n);
  WRITELN('a[i][j]');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
    Begin
      read(a[i, j]);
    End;
    readln; {* Ждем нажатия Enter *}
  End;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
    Begin
      write(a[i, j]);
    End;
    writeln; {* Вывод пустой строки *}
  End;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
    Begin
      If ij Then
      Begin
        If a[i, j]a[j, i] Then
        Begin
          writeln('No a[', i, ', ', j, ']');
        End;
        
      End;
      
    End;
  readln; {* Ждем подтверждения пользователя *}
End.