Profº Piva - Algoritmos - Exercício 3) Tendo o lado de um Triângulo Equilatero (lados iguais). Descubra qual a sua área?

algoritmo "Calculo Area Triangulo Equilatero"

var
  a, h, area:real
inicio
  escreval ("Calculo Area Triangulo Equilatero")
  escreva ("Qual e o valor do lado?")
  leia (a)
  h <- (a*(raizq(3)/2))
  escreva ("Qual e o valor da altura?")
  leia (h)
  escreval ("A area desse triangulo eh igual a:")
  area <- (a*h)/2
  escreva (area)
 
fimalgoritmo