var f,g:text;
n,k,s,s2,i,l,j,c1,c2:longint;
a:array[1..50000] of longint;

begin
assign(f,'secv2.in');
assign(g,'secv2.out');
reset(f);
rewrite(g);
read(f,n);
readln(f,k);
for i:=1 to n do read(f,a[i]);

J:=1;
s:=-25000;

repeat
l:=k;

repeat
s2:=0;
if l<=n+1-j then begin
for i:=j to l+j-1 do s2:=s2+a[i];
if s2>s then begin
s:=s2;
c1:=j;
c2:=l+j-1;
end;
end
else break;
l:=l+1;

until l=n-j+2;

j:=j+1;

if j=n-l then break;

until j=n-l+1;

write(g,c1,c2,s2);
close(f);
close(g);
end.