Дан равномерный массив A[N] (кол-во элементов задаётся с клавиатуры), заполненный с клавиатуры. Отсортировать первую половину массива по убыванию.

Function otr(ax, ay, bx, by: real): real; begin   otr : = sqrt(sqr(ax - bx) + sqr(ay - by)) end; function perim(ax, ay, bx, by, cx, cy: real): real; begin   perim : = otr(ax, ay, bx, by) + otr(bx, by, cx, cy) + otr(ax, ay, cx, cy); end; function area(ax, ay, bx, by, cx, cy: real): real; var   pp: real; begin   pp : = perim(ax, ay, bx, by, cx, cy) / 2;   area : = sqrt(pp * (pp - otr(ax, ay, bx, by)) * (pp - otr(bx, by, cx, cy)) *       (pp - otr(ax, ay, cx, end; procedure dist(px, py, ax, ay, bx, by: real; var d: real); begin   d : = 2 * area(px, py, ax, ay, bx, by) / otr(ax, ay, bx, by) end; var   px, py, ax, ay, bx, by, cx, cy: real;   d: real; begin   writeln('вводите координаты точкек парами чисел: ');   write('p-> ');   readln(px, py);   write('a-> ');   readln(ax, ay);   write('b-> ');   readln(bx, by);   write('c-> ');   readln(cx, cy);   writeln;   dist(px, py, ax, ay, bx, by, d);   writeln('расстояние от р до ав равно ', d);   dist(px, py, cx, cy, bx, by, d);   writeln('расстояние от р до вc равно ', d);   dist(px, py, ax, ay, cx, cy, d);   writeln('расстояние от р до аc равно ', d) end. тестовое решение: вводите координаты точкек парами чисел: p-> -3 6 a-> 5 8 b-> 9 -4 c-> 8 -2.5 расстояние от р до ав равно 8.22192191643778 расстояние от р до вc равно 4.43760156980184 расстояние от р до аc равно 8.24163383692135