Exercício 9 da lista!

Dada uma sequência arbitrária de números inteiros positivos não nulos, terminados com um número zero, calcular a média ritimética entre o maior e o menor número desta sequência:

algoritmo "LISTA_9"

var
N,MAIOR,MENOR,M: INTEIRO
inicio
LEIA (N)
MAIOR <- 0
MENOR <- N
ENQUANTO N<>0 FACA
SE N>MAIOR ENTAO
MAIOR <- N
FIMSE
SE N
MENOR <- N
FIMSE
LEIA (N)
FIMENQUANTO
M <- (MAIOR+MENOR)\2
ESCREVAL (M)