var n,i,j,s,p,max,s1,z,w:longint;
a,b,c,d,q,v:array[1..100000] of longint;
f,g:text;
begin
assign(f,'bilute.in');reset(f);
assign(g,'bilute.out');rewrite(g);
read(f,n);
s:=0;
w:=0;
for i:=1 to n do begin
read(f,a[i],b[i]);
q[i]:=a[i]*b[i];
s:=s+q[i];
end;
for i:=1 to n do
c[i]:=c[i-1]+a[i];
for i:=n downto 1 do begin
v[i]:=v[i+1]+a[i];
w:=w+v[i];
end;
max:=100000000;
s1:=s+w;
for i:=1 to n do begin
s1:=s1-q[i]-v[i];
if s1<max then begin
max:=s1;
p:=i;
end;
s1:=s1+c[i]+a[i];
end;
write(g,p,' ',max);
close(f);
close(g);
end.