var

a,b,ax,bx,aa,bb:array [1..3000] of longint;

ww,m,n,k,l,d,i,j,t1,t2,t3,t4,bs,as,j1:longint;

procedure pai(l,r:longint);

var t,m,q,w:longint;

begin

q:=l; w:=r;

m:=aa[(l+r) div 2];

repeat

while aa[q]m do dec(w);

if qw;

if q