type vector=array[0..6000000] of longint;
var min,s,uz:vector;
    i,j,ma,max,x,n :longint;
    fin,fout:text;
begin
assign(fin,'ssm.in');
assign(fout,'ssm.out');
reset(fin);
rewrite(fout);
read(fin,n);
for i:=1 to n do
    begin
    read(fin,x);
    s[i]:=s[i-1]+x;
    if min[i-1]>s[i] then
       min[i]:=s[i]
       else
       min[i]:=min[i-1];
    if max<s[i]-min[i] then
       begin
       max:=s[i]-min[i];
       ma:=i;
       end;
    end;
i:=ma;
while s[i]-min[i] <>0 do
    dec(i);
max:=s[ma]-s[i];
write(fout,max,' ',i+1,' ',ma);
close(fin);
close(fout);
end.