Área do triângulo equilátero

Calcular a área de um triângulo equilátero, onde todos os lados sao inguais.

algoritmo "Triangulo equilatero"
var
   base,altura,area:real
inicio
      escreval("Informe a base do triangulo:")
      leia(base)
      
      altura <- (base*(raizq(3)/2))
      area<- ((base*altura)/2)
      //5:2 é para formatar. Quero dizer que farei um arredondamento para no máximo 5 digitos, sendo 2 a parte decimal(depois da vírgula)
      escreva("A area é: ",area:5:2)
fimalgoritmo