Program blabla;
var t,s:array[1..6000000] of longint;
    n,i1,j1,i,j,r:longint;

BEGIN
  assign(input,'ssm.in');
  reset(input);
  readln(n);
  for i:=1 to n do
    read(t[i]);
  s[1]:=t[1];
  for i:=2 to n do
    s[i]:=s[i-1]+t[i];
  r:=s[1];
  i1:=1;
  j1:=1;
  for i:=1 to n do
    for j:=i to n do
      if s[j]-s[i]>r then
        begin
          r:=s[j]-s[i];
          i1:=i;
          j1:=j;
        end;
  assign(output,'ssm.out');
  rewrite(output);
  write(r,' ',i1+1,' ',j1);
  close(input);
  close(output);
END.