var n,k,s,max,i,j,i1,j1:longint;
    a:array[1..50000] of integer;
    f,g:text;
procedure citire;
begin
assign(f,'secv2.in'); reset(f);
readln(f,n,k);
for i:=1 to n do
read(f,a[i]);
close(f);
end;
begin
citire;
for i:=1 to n do
begin
s:=0;
for j:=i to n do
begin
s:=s+a[j];
if max<s then begin
                    max:=s;
                    i1:=i; j1:=j;
              end;
end;
end;
assign(g,'secv2.out'); rewrite(g);
if k> max then writeln(g,'0 0 0')
else writeln(g,i1,' ',j1,' ',max);
close(g);
end.