var v,s:array[0..50001]of longint;
    i,j,n,k,max,i1,i2:longint;
begin
assign(input,'secv2.in');reset(input);
assign(output,'secv2.out');rewrite(output);
readln(n,k);
for i:=1 to n do
        begin
        read(v[i]);
        s[i]:=s[i-1]+v[i];
        end;
max:=-maxlongint;
for i:=0 to n-k do
        begin
        for j:=i+k to n do
                if (s[j]-s[i]>max) then
                        begin
                        max:=s[j]-s[i];
                        i1:=i+1;
                        i2:=j;
                        end;
        end;
writeln(max);
writeln(i1,' ',i2);
close(input);close(output);
end.