program   secventa2;
type      vector=array[0..50000] of longint;
var       n,k,s,max,i,x,y:longint;
          v:vector;
          f:text;


begin
assign(f,'secv2.in'); reset(f); v[0]:=0;
read(f,n,k);
for i:=1 to n do
        begin
        read(f,v[i]);
        v[i]:=v[i-1]+v[i];
        end;
max:=v[k];if v[1]>0 then v[1]:=0;
x:=1;
y:=k;
close(f);
for i:= k+1 to n do
        begin
        if v[i-k]<v[s] then s:=i-k;
        if max<v[i]-v[s] then
                begin max:=v[i]-v[s]; x:=s+1; y:=i; end;
        end;
assign(f,'secv2.out'); rewrite(f);
write(f,x,' ',y,' ',max);close(f);
end.