Escreva um algoritmo que leia as notas das três provas de um aluno (p1, p2 e p3), calcule sua média aritmética e escreva-a. As notas devem estar no intervalo [0,10].

algoritmo "Cálculo da média"
   var
     n1, n2, n3, media:real
   inicio    escreval("Cálculo de média")
    escreva("Digite o valor da 1ª nota ")
     leia(n1)
    escreva("Digite o valor da 2ª nota ")
     leia(n2)
    escreva("Digite o valor da 3ª nota ")
     leia(n3)
    media <- ((n1+n2+n3) div 3)
    escreva ("A média é: ", media)
  fimalgoritmo