program p1;
var f,g:text;
    a:array[1..500000] of integer;
    min,i,n,k,max,imax:longint;

function minim(i:longint):longint;
var min1,j:longint;
begin
     min1:=a[i];
     for j:=i+1 to i+k-1 do
         if a[j]<min1 then min1:=a[j];
     minim:=min1;
end;

begin
     assign(f,'secventa.in');reset(f);
     assign(g,'secventa.out');rewrite(g);
     read(f,n,k);
     read(f,a[1]);
     max:=a[1];
     imax:=1;
     for i:=2 to k do
         begin
              read(f,a[i]);
              if a[i]<min then min:=a[i];
         end;
     for i:=k+1 to n do
         read(f,a[i]);
     for i:=2 to n-k+1 do
         begin
         min:=minim(i);
         if min>max then begin
                              max:=min;
                              imax:=i;
                         end;
         end;
     writeln(g,imax,' ',imax+k-1,' ',max);
     close(f);
     close(g);
end.