type arr=array[0..1000]of longint;

var a:array[1..100,1..4]of longint;

x1,y1:arr;

ok,bz:boolean;

i,j,k,n,m,x,y,zq,xx,yy,c,l,h,total:longint;

procedure dg(x,y:longint;var z:arr);

var i,j,mid:longint;

begin

i:=x;j:=y;

mid:=z[(x+y)div 2];

repeat

while z[x]mid do dec(y);

if xy;

if i=a[k,2]) then

if (x1