var n,i,x,a,p,ind,q,mx:longint;
begin
assign(input,'ssm.in'); reset(input);
assign(output,'ssm.out'); rewrite(output);
readln(n);
for i:=1 to n do
 begin
  read(a);
  if x<0 then
   begin
    x:=a;
    ind:=i
   end
  else inc(x,a);
  if x>mx then
   begin
    mx:=x;
    q:=ind;
    p:=i
   end
 end;
writeln(mx,' ',q,' ',p);
close(input);
close(output)
end.