program chop;

var n,i,t:longint;

a:array[1..1000000] of longint;

procedure quick(s,t:longint);

var i,j,mid,t1:longint;

begin

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

repeat

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

if ij;

if s