Мішатронік

{быстрая сортировка}
const
  maxn = 100000;
Type
  DataType = extended;
var
  i,n:longint;
  buf,X:DataType;
  a:array[1..maxn]of DataType;

procedure Sort(L,R:Longint);
var
  j:longint;

begin
  i:=L; j:=R; X:=a[(i+j)shr 1];
  repeat
    while a[i]<X do inc(i);
    while a[j]>X do dec(j);
    if i<=j then begin
      buf:=a[i]; a[i]:=a[j]; a[j]:=buf;
      inc(i); dec(j);
    end;
  until i>j;
  if i<R then Sort(i,R);
  if j>L then Sort(L,j);
end;

begin
end.