var sum,x,s,n,i:integer;

a,b:array[1..10000]of integer;

procedure qsort(l,r:longint);

var i,j,mid,x:longint;

begin

i:=l;j:=r;

mid:=a[(i+j) div 2];

repeat

while a[i]mid do dec(j);

if ij;

if l