var a,b,poz : array[0..200000] of integer;
    n,i,j,semn,x,y,max,s,min,minus : longint;
    f,g : text;
begin
assign(f,'buline.in'); reset(f);
assign(g,'buline.out'); rewrite(g);
readln(f,n);
for i:=1 to n do begin
         read(f,a[i]);
         read(f,semn);
         if semn=0 then inc(minus);
         if semn=1 then a[i]:=-a[i];
         end;
min:=maxint;
if minus=n then begin
for i:=1 to n do if a[i]<min then min:=a[i];
writeln(g,-min,' 1',' 1'); close(g);
halt;
end;

for i:=1 to n do begin
         if a[i]>=b[i-1]+a[i] then
         begin
         b[i]:=a[i];
         if b[i]>max then begin max:=b[i];y:=i; end;
         poz[i]:=i;
         end
         else
         begin
         b[i]:=b[i-1]+a[i];
         if b[i]>max then begin max:=b[i];y:=i; end;
         poz[i]:=poz[i-1];
         end;
         end;
for i:=1 to n do s:=s-a[i];
s:=s+max;
writeln(g,s,' ',(y+1) mod n,' ',n-(y+1)+poz[y]);
close(g);
end.