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

function minim(i,prim,ultim:longint):longint;
var min1,j:longint;
begin
     min1:=a[i];
     for j:=prim to ultim 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);
     im1:=1;im2:=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];
     max:=min;
     prim:=1;
     ultim:=k;
     for i:=2 to n do
         begin
         prim:=prim+1; ultim:=ultim+1;
         if min=a[prim-1] then 
              begin
              min:=minim(i,prim,ultim);
              if min>max then begin
                              max:=min;
                              im1:=prim;
                              im2:=ultim;  
                              end;
             end;
          end; 

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