P0<-101325 #Pa
g<-9.81 #m/s²
d<-1000 #kg/m³
h<-15
n<-3 #Presión manométrica

P1=(n+1)*P0
P2=P0
h=(P1-P0)/(g*d)+h
cat("Altura alcanzada en h metros es:",h,"\n")