program p1234;

var jh,i,j,l,n,m,k,js:longint;

a,b,c,f:array [1..10000] of longint;

function find(x:longint):longint;

begin

if f[x]=x then exit(x);

f[x]:=find(f[x]);

find:=f[x];

end;

procedure kp(l,r:longint);

var i,j,k,t:longint;

begin

i:=l;j:=r;k:=c[(l+r)div 2];

repeat

while c[i]