Program secv2;
var s:array [1..50000] of integer;
    b1,b2: array [1..1 shl 17] of char;
    sum,s1,s2:longint;
    n,k,p1,p2,i:longint;
    fi,fo:text;
begin
assign(fi,'secv2.in');
 assign(fo,'secv2.out');
settextbuf(fi,b1);
settextbuf(fi,b2);
reset(fi);
 rewrite(fo);
read(fi,n,k);
for i:=1 to n do read(fi,s[i]);
for i:=1 to k do
               s1:=s1+s[i];
s2:=s1; p2:=k;
if n=k then p2:=n else
for i:=k+1 to n do
  begin
    if s1+s[i]>s2 then begin
                        s2:=s1+s[i];
                         p2:=i;
                             end;
    s1:=s1+s[i];
  end;
s1:=0;
for i:=p2 downto p2-k do s1:=s1+s[i];
s2:=s1; p1:=1;
if n=k then p1:=1 else
for i:=p2-k-1 downto 1 do
   begin
    if s1+s[i]>s2 then begin
                        s2:=s1+s[i];
                         p1:=i;
                          end;
    s1:=s1+s[i];
  end;
write(fo,p1,' ',p2,' ',s2);
close(fo);
end.