funcao calcularArea()
    var opcao, area

    escrever("Escolha uma forma geométrica para calcular a área:")
    escrever("1 - Triângulo")
    escrever("2 - Retângulo")
    escrever("3 - Círculo")
    escrever("4 - Quadrado")
    escrever("5 - Trapézio")
    ler(opcao)

    se opcao = 1 entao
        var base, altura
        escrever("Base do triângulo: ")
        ler(base)
        escrever("Altura do triângulo: ")
        ler(altura)
        area <- (base * altura) / 2
    senao se opcao = 2 entao
        var largura, altura
        escrever("Largura do retângulo: ")
        ler(largura)
        escrever("Altura do retângulo: ")
        ler(altura)
        area <- largura * altura
    senao se opcao = 3 entao
        var raio
        escrever("Raio do círculo: ")
        ler(raio)
        area <- 3.1416 * raio * raio
    senao se opcao = 4 entao
        var lado
        escrever("Lado do quadrado: ")
        ler(lado)
        area <- lado * lado
    senao se opcao = 5 entao
        var baseMaior, baseMenor, altura
        escrever("Base maior do trapézio: ")
        ler(baseMaior)
        escrever("Base menor do trapézio: ")
        ler(baseMenor)
        escrever("Altura do trapézio: ")
        ler(altura)
        area <- ((baseMaior + baseMenor) * altura) / 2
    senao
        escrever("Opção inválida")
        retornar

    escrever("A área da forma geométrica é: ", area)
FimFuncao

calcularArea()