Program Secventa_2;
type sir=array[1..50000] of longint;
var a:sir;
    n,i,j,max,min,imin,imax:longint;
    k,x:integer;
    f,g:text;
begin
assign(f,'secv2.in');reset(f);
assign(g,'secv2.out');rewrite(g);
readln(f,n,k);
Read(f,x);
dec(n);
a[1]:=x;
For i:=2 to n+1 do
    begin
    Read(f,x);
    a[i]:=a[i-1]+x;
    end;
max:=-maxlongint;
For i:=k to n+1 do
    If a[i]>max then begin
                     max:=a[i];
                     imax:=i;
                     end;
min:=maxlongint;
For i:=1 to i-k do
    If a[i]<min then begin
                     min:=a[i];
                     imin:=i;
                     end;
If (min=maxlongint) or (min>=0)  then write(g,1,' ',imax,' ',max)
                                 else
                                 write(g,imin+1,' ',imax,' ',max-min);
close(f);close(g);
end.