var  f,g:text;
     n,k,i,val,st,dr,rez,start:longint;
     a,s:array[1..501000] of longint;
begin
assign(f,'secv2.in');reset(f);
assign(g,'secv2.out');rewrite(g);
readln(f,n,k);
for i:=1 to n do begin
   read(f,a[i]);
   s[i]:=s[i-1]+a[i];
end;
rez:=s[k];
st:=1;dr:=k;
val:=s[k];
start:=1;
for i:=k+1 to n do begin
    val:=val+a[i];
    if val<s[i]-s[i-k] then begin
       val:=s[i]-s[i-k];
       start:=i-k+1;
    end;
    if rez<val then begin
       rez:=val;
       st:=start;
       dr:=i;
    end;
end;
writeln(g,st,' ',dr,' ',rez);
close(g);
close(f);
end.