procedure qs(l,r:integer);
var i,j,x,t:integer;
begin
    i:=l; j:=r;    
    x:=a[l+random(r-l)+1];
    repeat
        while (a[i]<x) do inc(i);
        while (a[j]>x) do dec(j);
        if i<=j then
        begin
            t:=a[i];a[i]:=a[j];a[j]:=t;
            inc(i); dec(j);
        end;
    until i>j;
    if l<j then qs(l,j);
    if i<r then qs(i,r);
end;