Algoritmo "semnome"

Var

   notas: vetor[1..3] de real
   i: inteiro
   media: real
   soma: real

Inicio

   escreval("Informe as 3 notas")

   para i de 1 ate 3 faca
      escreva("Informe a ", i, "* nota: ")
      leia(notas[i])
   fimpara

   soma := (notas[1] + notas[2])
   media := (soma / 2)
   escreval("A media (nota1 + nota2 / 2) é", media)

   se media >= 6 entao
      escreval("O aluno foi APROVADO")
   senao
      escreval("O aluno foi REPROVADO")
      escreval("A soma (nota1 + nota2) é", soma)

      se soma % 2 = 0 entao
         escreval("A soma", soma, " é par.")
         escreval("A nota é", 6)
      senao
         escreval("A soma", soma, " é impar.")
      fimse

   fimse


Fimalgoritmo