Algoritmo calcular média utilizando condição iniciantes

Abaixo você vê um algoritmo com a função de calcular sua média. Esse algoritmo está destinado a iniciantes.

algoritmo "Calcular média do ano"

// Função : Calcula a sua média e diz se ficou reprovado ou não.

// Autor : Douglas Boza

// Data : 29/05/2011

// Seção de Declarações

var

A,B,C,D,MEDIA:REAL

inicio

// Seção de Comandos

escreval ("primeiro bimestre")

leia (a)

escreval ("Segundo bimestre")

leia (b)

escreval ("Terceiro bimestre")

leia (c)

escreval ("Quarto bimestre")

leia (d)

escreval ("Sua média é",(a+b+c+d)/4)

media := (a+b+c+d)/4)

se(media >= 6 )entao

escreval("Aprovado")

senao

escreval("Reprovado")

fimse

fimalgoritmo

No código acima utilizei: Condição se, então, senão;