Program cel;
Type vector=array[1..5000] of longint;
     vector1=array[1..5000] of integer;
var f,g:text;
    a:vector1;
    q:vector;
    n,k,st,i,dr,poz:longint;
    rez:integer;
Begin
Assign(f,'secventa.in');Reset(f);
Assign(g,'secventa.out');Rewrite(g);
Readln(f,n,k);
rez:=-32000;
st:=1;
dr:=0;
For i:=1 to k-1 do
 Begin
  Read(f,a[i]);
  While (st<=dr) and (a[i]<=a[q[dr]]) do dr:=dr-1;
   dr:=dr+1;
   q[dr]:=i;
  end;
For i:=k to n do
 Begin
  Read(f,a[i]);
  While (st<=dr) and (a[i]<=a[q[dr]]) do dr:=dr-1;
  dr:=dr+1;
  q[dr]:=i;
  While (st<=dr) and (q[st]<i-k+1) do st:=st+1;
  If a[q[st]]>rez then Begin
                        rez:=a[q[st]];
                        poz:=i;
                       end;
 end;
Write(g,poz-k+1,' ',poz,' ',rez);
Close(f);
Close(g);
end.