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);
     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;
     im1:=1;
     for i:=k+1 to n do
         read(f,a[i]);

     for i:=2 to n-k+1 do
         if min=a[i-1] then
              begin
              min:=a[i];
              for j:=i+1 to i+k-1 do
                  if a[j]<min then min:=a[j];
              if min>max then begin
                              max:=min;
                              im1:=i;
                              end;
            end;

     writeln(g,im1,' ',im1+k-1,' ',max);
     close(f);
     close(g);
end.