var s:array[1..50000] of longint;
n,k,i,j,v,smax,i2,j2:longint;
f,g:text;
begin
assign(f,'secv2.in');
assign(g,'secv2.out');
reset(f);rewrite(g);
readln(f,n,k);
for i:=1 to n do
    begin
    read(f,v);
    s[i]:=s[i-1]+v;
    end;
smax:=-maxlongint;
for i:=1 to n-k+1 do
    for j:=i+k-1 to n do
        if s[j]-s[i-1]>smax then
           begin
           smax:=s[j]-s[i-1];
           i2:=i;
           j2:=j;
           end;
write(g,i2,' ',j2,' ',smax);
close(f);close(g);
end.