var f,g:text;
v:integer;
s:array[1..50000] of longint;
i,j,x,y,n,k,max:longint;
h,m,se,ms,hh,mm,ss,mms:word;
begin
gettime(h,m,se,ms);
assign(f,'secv2.in');
reset(f);
readln(f,n,k);
read(f,v); s[1]:=v;
max:=s[1];
for i:=2 to k-1 do
begin
read(f,v);
s[i]:=s[i-1]+v;
end;
for i:=k to n do
begin
read(f,v);
s[i]:=s[i-1]+v;
if s[i]>max then
begin
max:=s[i];
x:=1;
y:=i;
end;
end;
close(f);
assign(g,'secv2.out');
rewrite(g);
i:=2;
while i<=n-k+1 do
begin
j:=i+k-1;
while j<=n do
begin
if s[j]-s[i-1]>max then
begin
max:=s[j]-s[i-1];
x:=i;
y:=j;
end; inc(j);
gettime(hh,mm,ss,mms);
if mms-ms>298 then begin writeln(g,x,' ',y,' ',max); j:=n+1;i:=n;end;
end;
inc(i);
end;
gettime(hh,mm,ss,mms);
if (ss-se=0)and(mms-ms<300) then writeln(g,x,' ',y,' ',max);
close(g);
end.