var d,c,l,s:array[0..30000] of qword;
    f,g:text;
    n,i,min,poz:longint;
begin
 assign(f,'bilute.in'); reset(f);
 assign(g,'bilute.out'); rewrite(g);
 read(f,n);
 for i:=1 to n do
  read(f,c[i],l[i]);
 for i:=1 to n do
  s[i]:=s[i-1]+c[i];
 for i:=1 to n do
  d[1]:=d[1]+l[i]*c[i]+c[i]*abs(i-1);
 for i:=2 to n do
  d[i]:=d[i-1]+(s[i-1] shl 1)-s[n];
 min:=maxlongint;
 for i:=1 to n do
  if min>d[i]-c[i]*l[i] then begin
   poz:=i;
   min:=d[i]-c[i]*l[i];
  end;
 writeln(g,poz,' ',min);
 close(f); close(g);
end.