Como calcular a média aritmética, ponderada e harmônica em Portugol - Escreva um programa Portugol que receba as 3 notas - Lista de Exercícios Resolvidos de Portugol

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

// Média aritmética, ponderada e harmônica em Portugol
programa {
  funcao inicio() {
    // variáveis necessárias para resolver o problema
    real n1, n2, n3, soma, media
    caracter letra

    // 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") ou (letra == "s")) {
      soma = n1 + n2 + n3
      media = soma / 3.0
      // mostra a média
     escreva("A média do aluno é: ", media)
    }
    // é media ponderada?
    senao se ((letra == "P") ou (letra == "p")) {
      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)
    }
    // é media harmônica?
    senao se ((letra == "H") ou (letra == "h")) {
      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.")
    }
  }
}