Program cel;
Type vector=array[1..500000] of integer;
var f,g:text;
    a,b:vector;
    n,k,val,min,start,ic,sf,max,i,j:longint;
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-k+1 do
 Begin
  min:=a[i];
  For j:=i to i+k-1 do
   If min>a[j] then min:=a[j];
  b[i]:=min;
 end;
max:=b[1];
ic:=1;
sf:=k;
val:=b[1];
start:=1;
For i:=k+1 to n do
 Begin
  If a[i]<val then val:=a[i];
  If val<b[i-k+1] then Begin
                        val:=b[i-k+1];
                        start:=i-k+1;
                       end;
  If val>max then Begin
                   max:=val;
                   ic:=start;
                   sf:=i;
                  end
             else If (max=val) and (sf=i-1) then sf:=i;
 end;
Write(g,ic,' ',sf,' ',max);
Close(f);
Close(g);
end.