factorial=1
num<- as.numeric (readline("Por favor ingrese un número: "))

## Por favor ingrese un número:

## Por favor ingrese un número:
factorial=1
num <- 6
for( i in 1:num) {
  factorial = factorial * i
}
cat("El factorial de", num, "! es:", factorial)

## El factorial de 6 ! es: 720