const nmax=30002;
var f:text;
    N,i:integer;
    C,L:array[1..nmax] of byte;
    p,min,Bs,Bd:int64;
    St,Dr:Array[0..nmax+1] of int64;
Begin
     assign(f,'bilute.in'); reset(f);
     Readln(f,N);
     For i:=1 To N do
         Readln(f,C[i],L[i]);
     close(f);
     Bs:=C[1]; St[1]:=0;
     For i:=2 To N do begin
         St[i]:=St[i-1]+C[i-1]*L[i-1]+Bs;
         Bs:=Bs+C[i];
     end;
     Bd:=C[N]; Dr[N]:=0;
     For i:=N-1 DownTo 1 do begin
         Dr[i]:=Dr[i+1]+C[i+1]*L[i+1]+Bd;
         Bd:=Bd+C[i];
     end;
     min:=St[1]+Dr[1];
     p:=1;
     For i:=2 To N do
         if St[i]+Dr[i]<min then begin
                            min:=St[i]+Dr[i];
                            p:=i;
            end;
     assign(f,'bilute.out'); rewrite(f);
     writeln(f,p,' ',min);
     close(f);
End.