Como calcular a apótema de um polígono regular de N lados em Portugol

// Apótema de um polígono regular de N lados em Portugol
programa {
  // vamos importar a biblioteca Matematica 
  inclua biblioteca Matematica --> m
  
  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro lados, comprimento
    real apotema

    // vamos ler a quantidade de lados
    escreva("Informe a quantidade de lados: ")
    leia(lados)

    // vamos ler o comprimento dos lados
    escreva("Informe o comprimento dos lados: ")
    leia(comprimento)

    // e agora calculamos a apótema dos polígono
    apotema = calcular_apotema(lados, comprimento)

    // e mostramos o resultado
    escreva("A apótema do polígono é: ", apotema)
  }

  // função que calcula e retorna a apótema de um
  // polítono regular
  funcao calcular_apotema(inteiro lados, inteiro comprimento) {
    // a quantidade de lados e o comprimento deles
    // não podem ser negativos
    se ((lados < 0) ou (comprimento < 0)) {
      retorne -1
    }

    // calculamos a apótema
    retorne (comprimento / (2 * m.tangente((180.0 / lados) *
      m.PI / 180.0)))
  }
}