program secventa2;

type sir=array[1..50000]of integer;

var n,k:integer;
    l,a,poz,s:sir;

procedure citire;
var i:integer;
begin
assign(input,'secv2.in');
reset(input);
readln(n,k);
for i:=1 to n do
    read(a[i]);
close(input);
end;

procedure suma_max;
var i,sum,j:integer;
begin
for i:=1 to n do
    begin
    poz[i]:=i;
    s[i]:=a[i];
    sum:=a[i];
    for j:=i+1 to n do
        begin
        sum:=sum+a[j];
        if sum>s[i] then
           begin
           s[i]:=sum;
           poz[i]:=j;
           end;
        end;
    end;
end;

procedure afisare_sol;
var max,ind,i:integer;
begin
assign(output,'secv2.out');
rewrite(output);
max:=-maxint;
for i:=2 to n do
    if (max<s[i]) and (poz[i]-i+1>=k) then
       begin
       max:=s[i];
       ind:=i;
       end;
writeln(ind,' ',poz[ind],' ',s[ind]);
close(output);
end;

begin
citire;
suma_max;
afisare_sol;
end.