var l,c,v,st,dr:array[0..30010]of longint;
    n,i,j,t:longint;
    s,min:qword;

begin
assign(input,'bilute.in');reset(input);
assign(output,'bilute.out');rewrite(output);
readln(n);
for i:=1 to n do
        readln(c[i],l[i]);
for i:=1 to n do
        s:=s+c[i]*l[i];
for i:=1 to n do
        v[i]:=s-c[i]*l[i];
s:=0;
st[1]:=c[1];
for i:=2 to n do
        st[i]:=st[i-1]+c[i];
dr[n]:=c[n];
for i:=n-1 downto 1 do
        dr[i]:=dr[i+1]+c[i];
for i:=1 to n do
        s:=s+c[i]*(i-1);
min:=s+v[1];
t:=1;
for i:=2 to n do
        begin
        s:=s+st[i-1]-dr[i];
        if s+v[i]<min then
                begin
                min:=s+v[i];
                t:=i;
                end;
        end;
writeln(t,' ',min);
close(input);close(output);
end.