3) Calcule a área de um triângulo equilátero quando você tem a base.

algoritmo "Cálculo da área do triângulo esquilátero"


var
a, h, area: real

inicio
escreval ("***Cálculo da àrea do Triângulo Equilátero***")
escreva ("Qual o valor do lado?")
leia (a)
h <- (a*(raizq(3))/2)
area <- (a*h)/2

Escreva ("A área deste triângulo equilátero eh ", area: 5:2)

fimalgoritmo