program secv2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type vector = array [1..50000] of integer;
var v:vector;
    i,j,k,n:longint;
    x,y,max,ma:int64;
    fin,fout:text;
{*---------------------------*}
begin
  assign(fin,'secv2.in'); reset(fin);
  assign(fout,'secv2.out'); rewrite(fout);
  readln(fin,n,k);
  for i:=1 to n do read(fin,v[i]);
  max:=-maxlongint;
  for i:=1 to n - 1 do
    begin
      ma:=0;
      for j:=i to n do
        begin
          ma:=ma+v[j];
          if (((ma > max) and (j-i+1>=k))) then
            begin
              x:=i;
              y:=j;
              max:=ma;
            end;
        end;
    end;
  writeln(fout,x,' ',y,' ',max);
  close(fout);
end.