var v,t1,o,t2,l,p:array[-1..40000]of int64;
    n,i,j,k:longint;
    a,b:int64;
    f:text;
begin
   assign(f,'bilute.in');
   reset(f);
   read(f,n);
   b:=0;
   for i:=1 to n do
   begin
   read(f,v[i],l[i]);
   o[i+1]:=o[i]+v[i];
   t1[i+1]:=t1[i]+o[i+1];
   k:=k+l[i]*v[i];
   end;
   close(f);
   for i:=n downto 1 do
   begin
   p[i-1]:=p[i]+v[i];
   t2[i-1]:=t2[i]+p[i-1];
   end;
   a:=t1[1]+t2[1]+k-l[1]*v[1];
   b:=1;
   for i:=2 to n do
   if t1[i]+t2[i]+k-l[i]*v[i]<a then begin a:=t1[i]+t2[i]+k-l[i]*v[i];
                                           b:=i;
                                     end;
   assign(f,'bilute.out');
   rewrite(f);
   writeln(f,b,' ',a);
   close(f);
end.