var fi,fo:text;
    c,l:array[1..30000]of byte;
    s1,s2:array[0..30000]of int64;
    rez,n,suma,min,culoare:longint;
    i,j:longint;
begin
  assign(fi,'bilute.in'); reset(fi);
  assign(fo,'bilute.out'); rewrite(fo);
  read(fi,n);
  suma:=0;
  for i:=1 to n do
    begin
      read(fi,c[i],l[i]);
      suma:=suma+c[i]*l[i];
      s1[i]:=s1[i-1]+c[i];
      s2[i]:=s2[i-1]+i*c[i];
    end;
  min:=maxint;
  for i:=1 to n do
    begin
      rez:=suma-c[i]*l[i]+i*s1[i-1]-s2[i-1]+(s2[n]-s2[i]-i*(s1[n]-s1[i]));
      if rez<min then
        begin
          culoare:=i;
          min:=rez;
        end;
    end;
  writeln(fo,culoare,' ',min);
  close(fi);
  close(fo);
end.