Como calcular a média aritmética, ponderada e harmônica em VisuAlg - Escreva um programa VisuAlg que receba as 3 notas - Desafio de Programação Resolvido em VisuAlg

Primeira nota: 6.7
Segunda nota: 5.4
Terceira nota: 9.5
Informe uma letra [S, P, H]: P
A média do aluno é: 6.87

algoritmo "Média aritmética, ponderada e harmônica em VisuAlg"

var
  // variáveis necessárias para resolver o problema
  n1, n2, n3, soma, media: real
  letra: caracter

inicio
  // vamos pedir para o usuário informar as notas
  escreva("Primeira nota: ")
  leia(n1)
  escreva("Segunda nota: ")
  leia(n2)
  escreva("Terceira nota: ")
  leia(n3)

  // agora vamos pedir uma letra
  escreva("Informe uma letra [S, P, H]: ")
  leia(letra)

  // é media aritmética?
  se letra = "S" entao
    soma <- n1 + n2 + n3
    media <- soma / 3.0
    // mostra a média
    escreva("A média do aluno é: ", media)
  senao
    // é media ponderada?
    se letra = "P" entao
      media <- (n1 * (50.0 / 100.0)) + (n2 * (30.0 / 100.0)) + (n3 * (20.0 / 100.0))
      // mostra a média
      escreva("A média do aluno é: ", media)
    senao
      // é media harmônica?
      se letra = "H" entao
        soma <- (1.0 / n1) + (1.0 / n2) + (1.0 / n3)
        media <- 3 / soma
        // mostra a média
        escreva("A média do aluno é: ", media)
      senao
        escreva("Letra inválida.")
      fimse
    fimse
  fimse

fimalgoritmo