n <- as.numeric(readline("Ingrese un numero entero positivo"))

## Ingrese un numero entero positivo

## Ingrese un numero entero positivo
suma <- (n*(n+1)/2)
suma 

## [1] NA

cat("La suma de los enteros positivos desde 1 hasta",n,"es",suma)

## La suma de los enteros positivos desde 1 hasta NA es NA