program sdas;
var x,n,sum,smax,si,s,i,sf:longint;
    f,g:text;
    intrare,iesire:array[1..1 shl 25] of char;
begin
assign(f,'ssm.in'); reset(f);    settextbuf(f,intrare);
assign(g,'ssm.out'); rewrite(g); settextbuf(g,iesire);
readln(f,n);
sum:=-1;
smax:=-1000000000;
for i:=1 to n do
  begin
  read(f,x);
  if(sum<0) then begin
                 sum:=x;
                 s:=i;
                 end
            else inc(sum,x);
  if(sum>smax)then begin
                   smax:=sum;
                   sf:=i;
                   si:=s;
                   end;
  end;
writeln(g,smax,' ',si,' ',sf);
close(f);close(g);
end.