Faça um algoritmo que calcule a área de um triângulo que recebe a base e a altura e retorna a área.

algoritmo "Calcular Área de um Triangulo"

var
h, b:real
inicio
escreval("Calculo da Área de um Triangulo")
escreva("Entre com o valor da base?")
leia(b)
escreva("Entre com o valor da altura?")
leia(h)
escreva("Área do Triângulo: ", (b*h)/2)

fimalgoritmo