program secv2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var fin,fout:text;
    max,i,j,dif,n,m,k,x,y:longint;
    v:array [0..50000] of longint;
{*-----------------------------------------------*}
{*-----------------------------------------------*}
begin
    assign(fin,'secv2.in'); reset(fin); assign(fout,'secv2.out'); rewrite(fout);

    readln(fin,n,k);
    for i:=1 to n do
    begin
       read(fin,x);
       v[i]:=v[i-1]+x;
    end;

    max:=-maxlongint;
    for i:=k to n do
    begin
          for j:=0 to i-k do
          begin
             dif:=v[i]-v[j];
             if dif > max then
             begin
                max:=dif;
                x:=j+1;
                y:=i;
             end;
          end;
    end;

    writeln(fout,x,' ',y,' ',max);
    close(fin); Close(fout);
end.