var f,g:text;
a:array[1..50000] of integer;
n,k,i:longint;
max,s,i1,j,p,o:longint;
begin
assign(f,'secv2.in');
reset(f);
readln(f,n,k);
for i:=1 to n do
read(f,a[i]);
max:=a[1];
p:=1;
o:=1;
for i:=1 to n-k do
for j:=i+k-1 to n do
  begin
   s:=0;
   for i1:=i to j do
      s:=s+a[i1];
   if s>max then begin
                     max:=s;
                     p:=i;
                     o:=j;
                     end;
   end;
assign(g,'secv2.out');
rewrite(g);
writeln(g,p,' ',o,' ',max);
close(g);
end.