program mire;
var n,i,ind,beg,en:longint;
    f,g:text;
    bestsum,sum,s:int64;
    bufin,bufout:array[1..1 shl 17] of byte;
begin
  assign(f,'ssm.in'); reset(f);
  assign(g,'ssm.out'); rewrite(g);
  settextbuf(f,bufin); settextbuf(g,bufout);
  bestsum:=-200000000000;
  readln(f,n);
  sum:=0;
   for i:=1 to n do
     begin
       read(f,s);
       if sum<0 then
         begin
            sum:=s;
            ind:=i;
         end
       else
         sum:=sum+s;
       if sum>bestsum then
         begin
           bestsum:=sum;
           beg:=ind;
           en:=i;
         end;
     end;
    writeln(g,bestsum,' ',beg,' ',en);
  close(f);
  close(g);
end.