Um programa que lê duas notas, calcula a média aritmética e exibe uma mensagem de reprovado, exame ou aprovado - Desafio de Programação Resolvido em VisuAlg

Informe a primeira nota: 8
Informe a segunda nota: 7.4
A média obtida foi: 7.7
Aprovado

algoritmo "Como calcular a média de um aluno em VisuAlg"

var
  // variáveis usadas na resolução do problema
  n1, n2, media: real

inicio
  // vamos solicitar as duas notas do aluno
  escreva("Informe a primeira nota: ")
  leia(n1)
  escreva("Informe a segunda nota: ")
  leia(n2)

  // vamos calcular a média aritmética
  media <- (n1 + n2) / 2.0
  escreval()
  escreval("A média obtida foi: ", media)

  // vamos verificar se o aluno foi reprovado, está de exame ou aprovado
  se (media < 4.0) entao // reprovado
    escreval("Reprovado")
  senao
    se ((media >= 4.0) e (media < 7.0)) entao // exame
      escreval("Exame")
    senao
      escreval("Aprovado")
    fimse
  fimse

  escreval()

fimalgoritmo