Algoritmo calcular média programação iniciantes Visualg

O algoritmo abaixo calcula sua média usando condição e soma

algoritmo "seunome"
// Função :
// Autor :  douglas boza
// Data : 20/08/2012
// Seção de Declarações
var
a,b,c,d,media:real
inicio
// Seção de Comandos
escreva ("Primeiro BM: ")
leia (a)
escreva ("Segundo BM: ")
Leia (b)
Escreva ("Terceiro BM: ")
leia (c)
escreva ("Quarto BM: ")
leia (d)
escreval ("Sua média foi", (a+b+c+d)/4)
media := (a+b+c+d)/4)
se (media >= 6) entao
escreval ("Aprovado")
senao
escreval ("Reprovado")
fimse
fimalgoritmo