program p1;
var f,g:text;
    a:array[1..500] of integer;
    max,prim,ultim,im1,im2,n,k,i,min,j:longint;

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

     writeln(g,im1,' ',im2,' ',max);
     close(f);
     close(g);
end.