var a:array[1..100000] of longint;

i,j,n,k,stmp:longint;sum,he:int64;

procedure qsort(x,y:longint);

var i,j,m,k:longint;

begin

i:=x;j:=y;m:=a[(x+y) div 2];

repeat

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

if ij;

if x