cat("\014") #limpiar la consola
rm(list=ls()) #resetear el entorno de trabajo

#dar valor a las variables de entrada
n<-3 #número total de etapas

#inicializar vectores
s<-c(0.9,0.8,0.85) #eficiencia de transporte
d<-c(0.5,0.4,0.6) #dispersión de oxígeno

#productorio
prod<-1
for (i in 1:n) {
  prod=prod*s[i]
}

#sumatorio
sum<-0
for (i in 1:n) {
  sum=sum+(d[i]/s[i])
}

#cálculo de la cantidad total de oxígeno transportado
Q=prod+sum

cat("Cantidad total de oxígeno transportado:", Q, "\n")
#cat(): concatena y muestra texto y valores en la consola en una sola línea
#"\n": salta de línea después de imprimir el mensaje