ll@N,P[4]{};rep(N){ll@(A,B),t=0;while(~A&1&t<3)t++,A/=2;P[t]+=B;}wt(P[3]+(P[1]<P[2]?(P[1]+P[2])/2:(P[2]*2+P[1])/3));