var f,g:text;
    a,s:array[0..50000] of int64;
    n,i,j,k,p1,p2:word;
    smax:int64;
begin
     assign(f,'secv2.in');
     assign(g,'secv2.out');
     reset(f);
     rewrite(g);
     read(f,n,k);
     for i:=1 to n do
        read(f,a[i]);
     s[0]:=0;
     for i:=1 to n do
          s[i]:=a[i]+s[i-1];
     smax:=-maxlongint;
     for j:=n downto k do
     begin
        for i:=1 to j-k+1 do
            if s[j]-s[i]>smax then
            begin
                smax:=s[j]-s[i];
                p1:=i+1;
                p2:=j;
            end;
     end;
     write(g,p1,' ',p2,' ',smax);


     close(g);
     close(f);
end.