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

  Procedure kiolvas(var n,k: integer; var v: vektor);
    var f: text;
        i: integer;
    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,min: integer);
    var i,j,minim,poz: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,' ',veg,' ',min);
      Close(g);
    end;

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