var i,j,n,jmin,smin,rez,k,sa,st,t,err:longint;
    v:array[1..500000]of integer;
    min:array[1..500000]of integer;
    s:array[1..500900]of char;
    nr:string;
    x:ansistring;

begin
assign(input,'secventa.in');reset(input);
assign(output,'secventa.out');rewrite(output);
readln(n,k);
readln(s);
x:=s;
i:=1;
t:=0;
while i<=length(x) do
        begin
        nr:='';
        while (s[i]<>' ')and(i<=length(s))and(ord(s[i])<>0) do
                begin
                nr:=nr+s[i];
                inc(i);
                end;
        inc(t);
        val(nr,v[t],err);
        inc(i);
        end;
smin:=1;
min[1]:=v[1];
jmin:=1;
for i:=2 to k do
    begin
    while (min[smin]>v[i])and(smin>0) do
        dec(smin);
    inc(smin);
    min[smin]:=v[i];
    end;
rez:=-maxint;
if min[jmin]>rez then
        begin
        rez:=min[jmin];
        sa:=1;
        st:=k;
        end;
for i:=k+1 to n do
    begin
    while (min[smin]>v[i])and(smin>=jmin) do
        dec(smin);
    inc(smin);
    min[smin]:=v[i];
    if v[i-k]=min[jmin] then
       inc(jmin);
    if (min[jmin]>rez) then
        begin
        rez:=min[jmin];
        sa:=i-k+1;
        st:=i;
        end;
    end;
writeln(sa,' ',st,' ',rez);
close(input);close(output);
end.