type vector=array[1..50]of integer;
var n,i,j,max,p,q,k,t,o:integer;f1,f2:text;v:vector;
Function secv(x,y:integer;v:vector):integer;
var z,c:integer;
begin
z:=0;
For c:=x to y do z:=z+v[c];
secv:=z;
end;
begin
assign(f1,'secv2.in');reset(f1);
assign(f2,'secv2.out');rewrite(f2);
read(f1,n);
read(f1,k);
readln(f1);
t:=0;
For i:=1 to n do read(f1,v[i]);
For i:=1 to n-k+1 do begin
For j:=i+k-1 to n do begin
o:=j-i;
If (secv(i,j,v)>max) and (o>t) then begin
max:=secv(i,j,v);
p:=i;
q:=j;
t:=o;
end;
end;
end;
write(f2,0,' ',0,' ',0);
close(f1);
close(f2);
end.