program bilute;
var
  fl : text;
  c, l : array[1..30000] of integer;
  n, i, j, k, p, s, smax : longint;
begin
   assign(fl,'bilute.in');
   reset(fl);
   readln(fl,n);
   for i := 1 to n do
      readln(fl,c[i],l[i]);
   close(fl);

   s := 0;
   smax := maxint;
   for i := 1 to n do
      begin
      for j := 1 to n do
         if i <> j then
            s := s + (c[j] * l[j] + c[j] * abs(j-i));
         if s < smax then
            begin
               smax := s;
               p := i;
            end;
         s := 0;
       end;

   assign(fl,'bilute.out');
   rewrite(fl);
   writeln(fl,p,' ',smax);
   close(fl);
end.