program sdo_v1;

 var k,n,i:longint;
     f,g:text;
     x:array of longint;

 procedure quick(bal,jobb:longint);
 var i,j,kozep,t:longint;
 begin
 i := bal;
 j := jobb;
 kozep := x[(i+j) div 2];
  while i<=j do begin
   while x[i]<kozep do i := i + 1;
   while x[j]>kozep do j := j - 1;
   if i<=j then begin
           t:=x[i];
           x[i]:=x[j];
           x[j]:=t;
           i := i + 1;
           j := j - 1;
           end;
  end;
 if bal < j then quick(bal,j);
 if i < jobb then quick(i,jobb);
 end;

Begin
assign(f,'sdo.in'); reset(f); readln(f,n,k); assign(g,'sdo.out'); rewrite(g);
SetLength(x,n);
 for i := 0 to Length(x)-1 do
  read(f,x[i]);
close(f);
k := k - 1;
quick(0,n-1);
writeln(g,x[k]);
close(g);
End.