var i,n,min,k,t:longint;
a:array[1..1000000] of longint;
begin
read(n);
read(t);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
 begin
  if a[i]<0 then
  begin
   min:=a[i];
   break;
  end;
end;
k:=i;
for i:=k to n do
 begin
  if (a[i]>min)and(a[i]<>t)and(a[i]<0) then
   min:=a[i];
  if a[i]=t then break;
 end;
writeln(min);
end.