P<-rep(350+10000*0.03/(1.03^10-1),10)
f<-function(x,a){
  suma<-0
  for (i in 1:10){
    suma<-suma+P[i]/(1+x/2)^i
  }
  return(suma-a)
}
r<-uniroot(f,c(0,1), a=10000)$root #prinos do dospeca
r