Algorítmo média das notas

algoritmo "Média Aritmética das notas"
var
nota1,nota2,nota3,nota4,media: real
inicio
escreva("Digite a nota do primeiro bimestre: ")
leia(nota1)
escreva("Digite a nota do segundo bimestre: ")
leia(nota2)
escreva("Digite a nota do terceiro bimestre: ")
leia(nota3)
escreva("Digite a nota do quarto bimestre: ")
leia(nota4)
media<-(nota1+nota2+nota3+nota4)/4
escreva("A média é: ",media ," pontos")
fimalgoritmo