program xxx;
var f,g:text;
smax,i,j,n,s,k,pozi,pozj,u:integer;
v:array [1..100] of integer;
begin
  assign (f,'ssm.in');
  reset (f);
  assign (g,'ssm.out');
  rewrite (g);
  read (f,n);
  For i:=1 to n do
    read (f,v[i]);
  for i:=1 to n-1 do
    begin
     For j:=i+1 to n do
       Begin
       S:=v[i];
       For k:=i+1 to j do
         begin
           S:=s+v[k];
           If s>smax then
             Begin
              Smax:=s;
              Pozi:=I;
              Pozj:=j;
             End;
         End;
       end;
     end;
write (g,smax,' ',pozi,' ',pozj);
close (f);
close (g);
end.