Algorítmo de Média - Visualg (Até que X, processar...)

algoritmo "Programa que calcula Médias"
//Seção de Declarações

var
// Seção de Variáveis
Qnumeros, Nordem, Nvalor, Valor, Media: real

inicio
// Seção de Comandos

escreval ("Função: Calular a Média de qualquer qantidade de valor, determinada")
escreval (" ainda em tempo de execução.")
escreval (" ")
escreval ("Autor: Josafá de Castro Duarte Junior - Técn. Processamento de Dados")
escreval (" ")
escreval ("Data: 1/4/2008")
escreval (" ")
escreval ("Programa para calcular Médias")
escreva ("Informe a quantidade de números a ser calculado : ")

leia (Qnumeros)

repita

Nordem <- Nordem + 1
escreva ("Informe o ", Nordem, "º numero: ")
leia (Valor)
Nvalor <- (Nvalor + Valor)

ate Nordem = Qnumeros

Media <- Nvalor / Qnumeros

escreval ("O valor Total informado foi: ->> ", Nvalor," <<-")
escreval ("A média calculada foi: ->> ", Media, " <<-")

fimalgoritmo