{* Задача 60 *}

Unit ZADACH60;
Interface
Implementation
Begin
 writeln('Для заданой матрицы размером 8 на 8найти такие к, что к-ая строка матрицы совпадает с к-ым столбцом. ');
End.

Program zadach60;

Uses zadach60.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : Array [1..8, 1..8] Of integer;
  k : integer;
  i : integer;
  j : integer;
Begin
  For i := 1 To 8 Do {* Увеличиваем i от 1 до 8 с шагом 1 *}
    For k := 1 To 8 Do {* Переменная k увеличивается с 1 до 8 *}
      readln(a[k, i]);
  For i := 1 To 8 Do {* Переменная i увеличивается с 1 до 8 *}
  Begin
    j := 0;
    For k := 1 To 8 Do {* Переменная k увеличивается с 1 до 8 *}
      If a[k, i] = a[i, k] Then
        inc(j); {* Увеличиваем j на 1 *}
    If j = 8 Then
      writeln(i);
  End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.