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