L4 - 9 - Calcule a média aritmética das 3 notas de um aluno e mostre, além do valor da média, uma mensagem de "Aprovado", caso a média seja igual ou superior a 6, ou a mensagem "reprovado", caso contrário.

Algoritmo "nono"
Var
  n1,n2,n3,m: numerico
Inicio
  Leia(n1,n2,n3)
  m <- (n1 + n2 + n3)/3
  Escreval("Media = ",m:5:2)
  Se(m>6)entao
    Escreva("APROVADO")
  Senao
    Escreva("REPROVADO")
  Fimse
Fimalgoritmo