program secventa;
type vect = array [1..500000] of integer;
var A,B : vect;
    i,j,n,k,l : integer;
    f : text;
    ok : boolean;
begin
assign(f,'secventa.in');
reset(f);
readln(f,n,k);

for i := 1 to n do begin
read(f,A[i]);
B[i] := A[i];
end;
close(f);

repeat
ok := true;
for i := 1 to n-1 do
if A[i]<A[i+1] then begin
                    l := A[i];
                    A[i] := A[i+1];
                    A[i+1] := l;
                    ok := false;
                    end;
until ok;


for i := 1 to n do begin

for j := 1 to n do
if B[j] = A[i] then break;

if n-j>=k-1 then break;


end;

assign(f,'secventa.out');
rewrite(f);
write(f,j,' ',n,' ',A[i]);

close(f);


end.