var q,n,k,i,st,dr,rez,x:longint;
a:array[1..50000] of longint;
s:array[0..50000] of longint;
f,g:text;
begin
assign(f,'secv2.in');reset(f);
assign(g,'secv2.out');rewrite(g);
read(f,n,k);
for i:=1 to n do begin
read(f,a[i]);
s[i]:=s[i-1]+a[i];
end;
st:=1;
dr:=k;
rez:=s[k];
x:=s[k];
q:=1;
for i:=k+1 to n do begin
x:=x+a[i];
if x<s[i]-s[i-k] then begin
x:=s[i]-s[i-k];
q:=i-k+1;
end;
if rez<x then begin
rez:=x;
st:=q;
dr:=i;
end;
end;
write(g,st,' ',dr,' ',rez);
close(f);
close(g);
end.