type vektor=array[1..5000] of integer;
var n,k,i,poz1,poz2:longint;
    f:text;
    v:vektor;
    max:integer;
procedure be(var n,k:longint; var v:vektor);
begin
        assign(f,'secventa.in');
        reset(f);
        readln(f,n,k);
        for i:=1 to n do
                read(f,v[i]);
        close(f);
end;

procedure feldolgoz(i:longint; var poz1,poz2:longint;var max: integer);
var j:byte; min:integer;
begin
        min:=v[i];
        for j:=i to i+k-1 do
                if v[j]<min then min:=v[j];
        if min>=max then begin
                          max:=min;
                          poz1:=i;
                          poz2:=i+k-1;
                        end;
end;

procedure ir(poz1,poz2:longint; max:integer);
begin
        assign(f,'secventa.out');
        rewrite(f);
        write(f,poz1,' ',poz2,' ',max);
        close(f);
end;


begin
        be(n,k,v);
        poz1:=1; poz2:=k; max:=v[1];
        for i:=1 to k do
            if v[i]<max then max:=v[i];
        for i:=1 to n-2 do
                feldolgoz (i,poz1,poz2,max);
        ir(poz1,poz2,max);
end.