Como testar se um número é um quadrado perfeito em Portugol - Solução usando raiz() e inteiro() - Desafio de Programação Resolvido em Portugol

Informe um valor inteiro: 64
O número 64 é um quadrado perfeito
Informe um valor inteiro: 28
O número 28 não é um quadrado perfeito
Informe um valor inteiro: 16
O número 16 é um quadrado perfeito

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// Número quadrado perfeito em Portugol
programa {
  // inclui a biblioteca Matematica
  inclua biblioteca Matematica --> mat

  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro valor

    // vamos pedir para o usuário informar um valor inteiro
    escreva("Informe um valor inteiro: ")
    leia(valor)

    // vamos testar se o número informado é um quadrado perfeito
    se (testar_quadrado_perfeito(valor)) {
      escreva("O número ", valor, " é um quadrado perfeito")
    }
    senao {
      escreva("O número ", valor, " não é um quadrado perfeito")
    } 
  }

  funcao testar_quadrado_perfeito(inteiro numero) {
    real raiz_quadrada
    inteiro comparacao

    // primeiro calculamos a rais quadrada do número recebido
    raiz_quadrada = mat.raiz(numero, 2.0)
    comparacao = inteiro(raiz_quadrada)
    
    // agora testamos se a raiz quadrada do número menos o arredondamento
    // dele para baixo é igual a 0
    retorne (raiz_quadrada - comparacao) == 0
  }
}