Área do triângulo

Calcular a área do triângulo:

algoritmo "Cálculo da área do triângulo"
var
   base, altura:real
inicio
      escreval("Informe a base do triângulo:")
      leia(base)
      
      escreval("Informe a altura do triângulo:")
      leia(altura)
      
      escreva("A área é: ",(base*altura)/2)
fimalgoritmo