somaPar <- 0
somaImpar <- 0
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)
i = 1
while (i<=tamanhoNumeros) {
  if (numeros[i] %% 2 == 0) {
    somaPar <- somaPar + numeros[i]
  } else { 
    somaImpar <- somaImpar + numeros[i]
  }
  i = i+1  
}
cat("Os números pares somam ",somaPar," e os números ímpares somam ",somaImpar,"\n")