program p1;
var f,g:text;
    a:array[1..50] 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);
     read(f,a[1]);
     im1:=1;im2:=k;
     min:=a[1];
     for i:=2 to k do
         begin
              read(f,a[i]);
              if a[i]<min then min:=a[i];
         end;
     max:=min;
     for i:=k+1 to n do
         read(f,a[i]);
     for i:=k+1 to n do
         begin
         if min=a[i-k] then
              begin
              min:=a[i-k+1];
              for j:=i-k+1 to i do
                  if a[j]<min then min:=a[j];
              if min>max then begin
                              max:=min;
                              im1:=i-k+1;
                              im2:=i;
                              end;
             end;
          end; 

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