Exercício 2- Calcular a área de um triângulo equilátero.

algoritmo " Cacular a area de um triangulo Equilátero "


  var

  lado,h,area: real

  inicio

  escreval("Calcular área de triangulo Equilátero")

  escreva ("Qual eh o valor do lado ")

  leia (Lado)

  h<- (lado *raizq(3))/2

  area <-(lado*h)/2

  escreva ("Area do triangulo eh:",area: 5:2)

  Fimalgoritmo