program secv2;
var f,g:text;
    a:array[0..2,0..50000]of longint;
    b:array[1..50000]of integer;
    n,k,i,j,max,pi,pf:longint;

function suma(i:longint):longint;
var s:longint;
begin
  s:=0;
  for j:=1 to i do
   s:=s+b[j];
  suma:=s;
end;

begin
  assign(f,'secv2.in');
  reset(f);
  readln(f,n,k);
  max:=-2147483647; pi:=0; pf:=0;
  for i:=1 to n do
   begin
    read(f,b[i]);
    a[1,i]:=0;
    for j:=1 to i do
     a[1,i]:=a[1,i]+b[j];
{    a[1,i]:=suma(i);}
    if a[1,i]>max then
     if i>=k then
      begin
       max:=a[1,i];
       pi:=1;
       pf:=i;
      end;
    end;
  close(f);

  for i:=2 to n do
   begin
    for j:=i to n do
     begin
      a[2,j]:=(a[1,j]+a[2,j-1])-a[1,j-1];
      if a[2,j]>max then
       if (j-1)>=k then
        begin
         max:=a[2,j];
         pi:=i;
         pf:=j;
        end;
     end;
    for j:=1 to n do
     begin
      a[1,j]:=a[2,j];
      a[2,j]:=0;
     end;
   end;

  assign(g,'secv2.out');
  rewrite(g);
  write(g,pi,' ',pf,' ',max);
  close(g);
end.