n1 <- as.numeric(readline("Ingrese el primer numero que desee: "))

## Ingrese el primer numero que desee:

## Ingrese el primer numero que desee:
n2 <- as.numeric(readline("Ingrese el segundo numero que desee: "))

## Ingrese el segundo numero que desee:

## Ingrese el segundo numero que desee:
n3 <- as.numeric(readline("Ingrese el tercer numero que desee: "))

## Ingrese el tercer numero que desee:

## Ingrese el tercer numero que desee:
n4 <- as.numeric(readline("Ingrese el cuarto numero que desee: "))

## Ingrese el cuarto numero que desee:

## Ingrese el cuarto numero que desee:
n5 <- as.numeric(readline("Ingrese el quinto numero que desee: "))

## Ingrese el quinto numero que desee:

## Ingrese el quinto numero que desee:
numeros <- c(n1,n2,n3,n4,n5)
cat("Los numeros ordenados son: ",sort(numeros))

## Los numeros ordenados son: