var f,g:text;
    v:integer;
    s:array[1..50000] of longint;
    i,j,x,y,n,k,max:longint;
begin
assign(f,'secv2.in');
reset(f);
readln(f,n,k);
read(f,v); s[1]:=v;
max:=s[1];
for i:=2 to k-1 do
   begin
     read(f,v);
     s[i]:=s[i-1]+v;
   end;
for i:=k to n do
  begin
    read(f,v);
    s[i]:=s[i-1]+v;
    if s[i]>max then
      begin
        max:=s[i];
        x:=1;
        y:=i;
      end;
  end;
close(f);
for i:=2 to n-k+1 do
  for j:=i+k-1 to n do
     if s[j]-s[i-1]>max then
        begin
          max:=s[j]-s[i-1];
          x:=i;
          y:=j;
        end;
assign(g,'secv2.out');
rewrite(g);
writeln(g,x,' ',y,' ',max);
close(g);
end.