Program qc;
uses math;
Var
p,v:array[0..500000] of longint;
ans,cont,need,m,n:longint;
i,j:longint;
procedure qsort(l,r: longint);
var i,j,x,y: longint;
begin
i:=l;j:=r; x:=p[(l+r) div 2];
repeat
while p[i]