x <- as.numeric(readline(prompt="Introduce el valor de x:"))
if (x < 0) {
  stop("El valor de x no puede ser negativo")
}
cat("x es", x,"\n")