Faça um algoritmo que receba apenas 1 lado do triângulo equilátero e retorne a área.

algoritmo "Calcular Área de um Triângulo Equilatero"

var
lado, h, area:real
inicio
escreval("Calcular Área de um Triângulo Equilatero")
escreva("Qual e o valor de um lado?")
leia(lado)
h<-(lado*raizq(3))/2
area<-(lado*h)/2
escreva("Area de triangulo: ", area:5:2)

fimalgoritmo