{secventa2 infoarena/culegere a 9a}

var a:array[1..50000] of integer;
    s:array[0..50000] of longint;
    rez,st,dr,start,val,i,j,n,k:longint;
    f,g:text;

procedure citire;
begin
assign(f,'secv2.in'); reset(f);
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;

assign(g,'secv2.out'); rewrite(g);

writeln(g,st,' ',dr,' ',rez);
close(f);
close(g);
end;

begin
citire;
end.