x <- as.numeric(readline(prompt = "Introduce el valor de x: ")) # Leer el valor de x
raiz_real <- function(x) {
  if (x < 0) {
    stop("'x' no puede ser negativo.")   
  } 
  sqrt(x) # Calcular la raíz cuadrada
}

# Llamar a la función y mostrar el resultado
resultado <- raiz_real(x)
cat("La raíz cuadrada de", x, "es", resultado, "\n")