{* Задача 192 *}

Unit ZADACH192;
Interface
Implementation
Begin
 writeln('Даны натуральное число N и последовательность A1, A2,..., An. Получить все элементы, входящие в данную последовательность более одного раза.');
End.

Program p;

Uses zadach192.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Постоянные значения *}
  N = 10;
Var {* Объявление переменных *}
  A   : Array[1..N] Of integer;
  B   : Array[1..N] Of integer;
  i   : integer;
  j   : integer;
  k   : integer;
  tmp : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  randomize;
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
    A[i] := random(10);
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
    write(A[i], ' ');
  writeln; {* Пропускаем одну строку *}
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
    For j := 1 To N - 1 Do {* Увеличиваем j от 1 до N с шагом 1 *}
      If (A[j] > A[j + 1]) Then
      Begin
        tmp := A[j];
        A[j] := A[j + 1];
        A[j + 1] := tmp;
      End;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
    For j := N Downto i + 1 Do
      If (A[i] = A[j]) Then
      Begin
        write(A[i], ' ');
        i := j;
        break;
      End;
  readln; {* Ждем подтверждения пользователя *}
End.