var s,v:array[0..5000] of integer;
st,val,a,inceput,sfarsit,n,k:word;
f:text;
procedure citire;
var i:longint;
begin
assign(f,'secv2.in');reset(f);
readln(f,n,k);
for i:=1 to n do
begin
read(f,v[i]);
s[i]:=s[i-1]+v[i];
end;
close(f);
end;
procedure initializare;
begin
a:=s[k];
val:=s[k];
inceput:=1;
sfarsit:=k;
st:=1;
end;
procedure secventa;
var i:longint;
begin
for i:=k+1 to n do
    begin
    val:=val+v[i];
    if val<s[i]-s[i-k] then
                       begin
                       val:=s[i]-s[i-k];
                       st:=i;
                       end;
    if val>a then
             begin
             a:=val;
             inceput:=st;
             sfarsit:=i;
             end;
    end;
end;
procedure afisare;
begin
assign(f,'secv2.out');rewrite(f);
write(f,inceput,' ',sfarsit,' ',a);
close(f);
end;
begin
citire;
initializare;
secventa;
afisare;
end.