Média de notas em visualg

Algoritmo "Média das notas"

Var
   total, media, nota: real
   n, i:inteiro

Inicio
   i<- 1
   nota <- -1
   escreva("Quanto alunos? ")
   leia(n)
   enquanto i<= n faca
      enquanto ((nota<0) ou (nota>20)) faca
         escreva(i, "ª nota? ")
         leia(nota)
         se  ((nota<0) ou (nota>20))  entao
            escreva("Nota inválida!")
         fimse
      fimenquanto

      total <- total + nota
      nota <- -1
      i <- i+1
   fimenquanto
   media <- (total/n)
   escreva("A média é de ", media, " valores")
Fimalgoritmo