Elabore um programa Portugol que efetue a leitura sucessiva de valores numéricos e apresente no final o somatório, a média e o total de valores lidos - Exercícios Resolvidos de Portugol

Informe o valor (negativo para parar): 8
Informe o valor (negativo para parar): 3
Informe o valor (negativo para parar): 5
Informe o valor (negativo para parar): 1
Informe o valor (negativo para parar): -3

A soma dos números é: 17
O total de números lidos é: 4
A média dos números é: 4.25

// Leitura sucessiva de valores numéricos em Portugol
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro numero, soma = 0, total_numeros = 0
    real media

    // vamos efetuar a leitura dos números
    faca {
      escreva("Informe o valor (negativo para parar): ")
      leia(numero)

      // o número é positivo?
      se (numero > -1) {
        // vamos somar mais este número
        soma = soma + numero
        // vamos contar mais este número
        total_numeros = total_numeros + 1
      }
    } enquanto (numero > -1)

    // vamos calcular a média dos números lidos
    se (total_numeros > 0) {
      media = soma / (total_numeros * 1.0)

      escreva("\nA soma dos números é: ", soma)
      escreva("\nO total de números lidos é: ", total_numeros)
      escreva("\nA média dos números é: ", media)
      escreva("\n")
    }
    senao {
      escreva("\nNão foram informados números positivos.\n")
    }
  }
}