Integrate[P Exp[r t],{t,p,q}]