var f1,f2:text;
    n,i,j:longint;
    a,b,c,f,s:array[0..30010] of qword;
    poz,max,hs,sm:qword;
begin
        assign(f1,'bilute.in');
        reset(f1);
        assign(f2,'bilute.out');
        rewrite(f2);
        read(f1,n);
        for i:=1 to n do
        begin
                read(f1,a[i],b[i]);
                c[i]:=a[i]*b[i];
                sm:=sm+c[i];
        end;
        for i:=1 to n do
                s[i]:=s[i-1]+a[i];
        for i:=n downto 1 do
        begin
                f[i]:=f[i+1]+a[i];
                hs:=hs+f[i];
        end;
        max:=maxlongint;
        poz:=sm+hs;
        for i:=1 to n do
        begin
                poz:=poz-c[i]-f[i];
                if poz<max then
                begin
                        max:=poz;
                        j:=i;
                end;
                poz:=poz+s[i]+c[i];
        end;
        writeln(f2,j,' ',max);
        close(f1);
        close(f2);
end.