{* Задача 73 *}

Unit ZADACH73;
Interface
Implementation
Begin
 writeln('Написать функцию на Паскале для проверки наличия в двумерном массиве одинаковых элементов. ');
End.

Program zadach73;

Uses zadach73.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Предопределенные *}
  N = 5;
  Max = 99;
Type {* Используемые типы *}
  TMassiv = Array[1..N, 1..N] Of 0..Max;
Var {* В работе нам потребуются переменные: *}
  mas                     : TMassiv;
  i                       : 0..Max;
  k                       : 0..Max;
Function YesOrNo(massiv : TMassiv);
Var {* Объявление переменных *}
  i  : 0..Max;
  i1 : 0..Max;
  k  : 0..Max;
  k1 : 0..Max;
  a  : 0..Max;
Begin
  YesOrNo := false;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
    For k := 1 To N Do {* Цикл для k => [1 .. N] *}
    Begin
      a := massiv[i, k];
      For i1 := 1 To N Do {* Увеличиваем i1 от 1 до N с шагом 1 *}
        For k1 := 1 To N Do {* Цикл для k1 => [1 .. N] *}
          If (a = massiv[i1, k1])And(ii1)And(kk1) Then
          Begin
            YesOrNo := true;
            exit;
          End;
      
    End;
  
End;
Begin
  randomize;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
  Begin
    writeln; {* Пропускаем одну строку *}
    For k := 1 To N Do {* Увеличиваем k от 1 до N с шагом 1 *}
    Begin
      mas[i, k] := random(Max + 1);
      write(mas[i, k] : 3);
    End;
    
  End;
  writeln; {* Пропускаем одну строку *}
  writeln(YesOrNo(mas));
  readln; {* Приостановка программы. Ожидание Enter *}
End.