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

#dar valor a las variables de entrada
n<-3

#inicializar vectores
k<-c(0.1,0.2,0.15) #coeficientes de flujo
C<-c(1.0,1.2,1.1) #factores acumulativos

#productorio dentro de un sumatorio
sum<-0
for (i in 1:n) {
  prod<-1 #OJO!!! es muy importante inicializar la variable del bucle anidado dentro del bucle que lo contiene o nos dará otro resultado!
  for (j in 1:i) {
    prod=prod*C[j]
  }
  sum=sum+k[i]*prod
}

#cálculo del flujo metabólico acumulado
F=sum

cat("El flujo metabólico acumulado es:", F, "\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