numeros = c()

num <- as.numeric(readline("Digite um número inteiro, por favor. Termine o programa com um número 0: "))
print(num)

while (num >= 0) {
  numeros = c(numeros,num)  
  num <- as.numeric(readline("Digite um número inteiro, por favor. Negativo para terminar: "))
  print(num)
}

tamanhoNumeros = length(numeros)
print(tamanhoNumeros)
i = 1
while (i<=tamanhoNumeros) {
  cat(i,numeros[i],"\n")
  i = i+1  
}