Program statistic;
var n,k,i,j:integer;
    a:array[1..3000000] of longint;
    t:boolean;
    f,g:text;
begin
assign(f, 'sdo.in'); reset(f);
assign(g, 'sdo.out'); rewrite(g);
read(f,n);
readln(f,k);
for i:=1 to n do
 read(f, a[i]);
repeat
 t:=false;
 for i:=1 to n-1 do
  if a[i]>a[i+1] then begin
   j:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=j;
   t:=true;
  end;
until not t;
writeln(g,a[k]);
close(f); close(g);
end.