var f,g:text;min,sol,i,j,n,x:longint;v:array[1..3000000]of longint;
begin
assign(f,'sdo.in');reset(f);
assign(g,'sdo.out');rewrite(g);
readln(f,n,x);
min:=maxint;
for i:=1 to n do begin
read(f,v[i]);
if v[i]<min then min:=v[i];end;
sol:=min;
min:=maxint;
j:=0;
repeat
inc(j);
min:=maxint;
for i:=1 to n do
if  (v[i]<min) and (v[i]>sol)then min:=v[i];
sol:=min;
until j=x-1;
write(g,sol);
close(g);
close(f);
end.