Solve[((1-P)*(0.0545 * x * 40 - 25))/(1800 * (1-R)), {x==500}, {P==0.5}, {R=0.5}]