algoritmo "Média Bimestral"
// Função : Calcular a média do aluno
// Autor : Gustavo Zanoni
// Data : 06/10/2012
// Seção de Declarações
var a: inteiro
    b: inteiro
    c: inteiro
    d: inteiro
    f: inteiro
    media: real
inicio
a <- 6
b <- 3
c <- 6
d <- 2
f <- a + b + c + d
media <- (f\4)

Escreva ("Notas do aluno ")
escreval ("Gustavo Zanoni")
escreval ("NOTA1 = ",a)
escreval ("NOTA2 = ",b)
escreval ("NOTA3 = ",c)
escreval ("NOTA4 = ",d)
escreval ("Nota Alcançada = ", ("NOTA1+NOTA2+NOTA3+NOTA4 ="),f)
escreval ("Nota final = ", media)
         se (media >= 7) entao
             escreva ("Parabéns, Aprovado.")
                senao se (media >= 5 e < 7) entao
                    escreva ("Resultado final = Recuperação")
                      senao se (media < 5) entao
                           escreva ("Reprovado!")

                                   fimse
fimalgoritmo