program bilute;
var f, g:text;
    min, poz, n, sl, sv, dr, st:int64;
    i:longint;
    c, l:array[0..30000] of longint;
  begin
    assign(f,'bilute.in'); reset(f);
    assign(g,'bilute.out'); rewrite(g);
    readln(f,n);
    for i:=1 to n do
      begin
        read(f,c[i],l[i]);
        l[i]:=l[i]*c[i];
        sl:=sl+l[i];
        sv:=sv+c[i]*(i-1);
        dr:=dr+c[i];
      end;
    sl:=sl-l[1];
    dr:=dr-c[1];
    min:=sl+sv;
    poz:=1;
    for i:=2 to n do
      begin
        sl:=sl+l[i-1]-l[i];
        st:=st+c[i-1];
        sv:=sv-dr+st;
        dr:=dr-c[i];
        if sv+sl<min then
          begin
            min:=sv+sl;
            poz:=i;
          end;
      end;
    writeln(g,poz,' ',min);
    close(f);
    close(g);
  end.