{secventa2 infoarena/culegere a 9a}

var v:array[1..50000] of integer;
    suma:array[0..50000] of longint;
    f,g:text;
    n,k:longint;

procedure citire;
var i:longint;
begin
assign(f,'secv2.in'); reset(f);
readln(f,n,k);
for i:=1 to n do
    begin
    read(f,v[i]);
    suma[i]:=suma[i-1]+v[i];
    end;

close(f);
end;

procedure rezolvare;
var rezultat_final,valoare:longint;
    stanga,dreapta,incep,i,j:longint;
begin
rezultat_final:=suma[k];
stanga:=1;
dreapta:=k;
valoare:=suma[k];
incep:=1;

for i:=k+1 to n do
    begin
    valoare:=valoare+v[i];
    if valoare<suma[i]-suma[i-k] then
       begin
       valoare:=suma[i]-suma[i-k];
       incep:=i-k+1;
       end;
    if rezultat_final<valoare then
       begin
       rezultat_final:=valoare;
       stanga:=incep;
       dreapta:=i;
       end;
    end;

assign(g,'secv2.out'); rewrite(g);
writeln(g,stanga,' ',dreapta,' ',rezultat_final);
close(g);
end;

begin
citire;
rezolvare;
end.