var f,g:text;
    n,i,smax,s,j,imax,jmax,k:longint;
    a:array[1..600]of longint;
begin
assign(f,'secv.in');reset(f);
assign(g,'secv.out');rewrite(g);
readln(f,n,k);
smax:=smax-214748000;
for i:=1 to n do
    read(f,a[i]);
for i:=1 to n do
    begin
    s:=a[i];
    for j:=i+1 to n+1 do
        begin
        if (s>smax) and (j-i>=k) then begin
                       smax:=s;
                       imax:=i;
                       jmax:=j-1;
                       end;
        s:=s+a[j];
        end;
    end;
writeln(g,imax,' ',jmax,' ',smax);
close(g);
end.