type vektor=array[1..100] of integer;
var g: text;
    n,k,kezd,veg: longint;
    min: integer;
    v: vektor;

  Procedure kiolvas(var n,k: longint; var v: vektor);
    var f: text;
        i: longint;
    Begin
      Assign(f,'secventa.in');
      Reset(f);
      ReadLn(f,n,k);
      For i:=1 to n do
        Read(f,v[i]);
    end;

  Procedure feldolgoz(var kezd,veg: longint; var min: integer);
    var i,j,poz: longint;
        minim: integer;
    Begin
      For i:=2 to n-k+1 do
        Begin
          minim:=v[i];
          For j:=i to i+k-1 do
            If v[j]<minim then
               Begin
                 minim:=v[j];
                 poz:=j;
               end;
          If minim>min then
             Begin
               min:=minim;
               kezd:=poz;
               veg:=poz+k-1;
             end;
        end;
    end;

  Procedure kiir;
    var g: text;
    Begin
      Assign(g,'secventa.out');
      ReWrite(g);
      WriteLn(g,kezd+1,' ',veg+1,' ',min);
      Close(g);
    end;

BEGIN
  kiolvas(n,k,v);
  kezd:=1;
  veg:=k;
  min:=v[1];
  feldolgoz(kezd,veg,min);
  kiir;
END.