var a:array[1..100000000] of longint ;
    f,g:text;
    i,n,max,start,sf,s:longint;
begin
assign(f,'ssm.in'); reset(f);
assign(g,'ssm.out'); rewrite(g);
read(f,n);
for i:=1 to n do
  read(f,a[i]);
s:=a[1];
i:=2;
start:=1;
 for i:=2 to n do begin
   if s>0 then s:=s+a[i]
          else begin s:=a[i]; start:=i; end;
   if s>max then begin max:=s; sf:=i; end;
 end;
 write(g,max,' ',start,' ',sf);
close(f);
close(g);
end.