v0:3130;

p0:14;

a:1;

R(p):=v0*(1-(p-p0)/a*(10/100))*p;

diff(R(p),p);

solve([%], [p]);

R(%o27);

fpprec : 6;

bfloat(R(12));