var n,k:longint;
    v:array [1..500000] of integer;
    f,g:text;

 procedure citire;
  var i:longint;
  begin
   readln(f,n,k);
   for i:=1 to n do read(f,v[i]);
  end;

 procedure secventa;
  var max,min:integer;
      mi,ms,i,j:longint;
  begin
   max:=v[1];
   for i:=2 to k do
     if max>v[i] then max:=v[i];
   mi:=1;
   ms:=k;
   for i:=2 to n-k+1 do
     begin
     min:=v[i];
     for j:=i+1 to i+k-1 do
       if min>v[j] then min:=v[j];
     if min>max then
       begin
       max:=min;
       mi:=i;
       ms:=i+k-1;
       end;
     end;
   write(g,mi,' ',ms,' ',max);
  end;

begin
  assign(f,'secventa.in');
  assign(g,'secventa.out');
  reset(f);
  rewrite(g);
  citire;
  secventa;
  close(f);
  close(g);
end.