{* Задача 112 *}

Unit ZADACH112;
Interface
Implementation
Begin
 writeln('На оси Оx заданы N точек с координатами x1, x2,..., xn. Найти такую точку Z сумма расстояний от которой до данных точек минимальная. ');
End.

Program pas13458;

Uses zadach112.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  d : longint;
  i : longint;
  j : longint;
  m : longint;
  a : Array [1..100] Of longint;
Begin
  clrscr; {* Очистка экрана *}
  write('Введите кол-во точек:');
  readln(D);
  For i := 1 To D Do {* Увеличиваем i от 1 до D с шагом 1 *}
  Begin
    write('x', i, '=');
    readln(a[i]);
  End;
  For i := 1 To D - 1 Do {* Цикл для i => [1 .. D] *}
    For j := i + 1 To D Do
      If a[i] > a[j] Then
      Begin
        m := a[i];
        a[i] := a[j];
        a[j] := m;
      End;
  If d Mod 2 = 0 Then
    write('Z между ', a[d Div 2], ' и ', a[d Div 2 + 1])
  Else write('Z=', a[d Div 2 + 1]);
    readln; {* Ждем нажатия Enter *}
End.