var aux,n,i,j,k,pozi,pozs:integer;
    a,b:array[1..5000] of integer;
    f,g:text;

begin
assign(f,'secventa.in');reset(f);
assign(g,'secventa.out');rewrite(g);
readln(f,n,k);
for i:=1 to n do
read(f,a[i]);
for i:=1 to n do
b[i]:=a[i];
for i:=1 to n do
for j:=i to n do
if(a[i]>a[j]) then begin
aux:=a[i];
a[i]:=a[j];
a[j]:=aux;
end;
for i:=1to n do
if(b[i]=a[n]) then begin
pozi:=i-1;pozs:=i+k-2; end;
write(g,pozi,' ',pozs,' ',b[pozi]);
close(g);
readln;
end.