program secventa;
type sir=array[-1..50000] of integer;
var s:sir;
    sum,sumant,smax:longint;
    n,k,p1,p2,i:word;
    d,o:text;
begin
assign(d,'secv2.in');assign(o,'secv2.out');
reset(d);rewrite(o);
read(d,n);read(d,k);
for i:=1 to n do read(d,s[i]);
sumant:=0;
for i:=1 to k do sumant:=sumant+s[i];
smax:=sumant;p2:=k;
for i:=k+1 to n do
  begin
    if sumant+s[i]>smax then begin
                               smax:=sumant+s[i];
                               p2:=i;
                             end;
    sumant:=sumant+s[i];
  end;
sumant:=0;
for i:=p2 downto p2-k do sumant:=sumant+s[i];
smax:=sumant;
for i:=p2-k-1 downto 1 do
  begin
    if sumant+s[i]>smax then begin
                               smax:=sumant+s[i];
                               p1:=i;
                             end;
    sumant:=sumant+s[i];
  end;
write(o,p1);write(o,' ');write(o,p2);write(o,' ');write(o,smax);
close(o);close(d);
end.