Area de um triangulo

program areatriangulo;
{Declarações}
Var
    area, altura, base: real;
begin
  write ('Digite a altura do triangulo: ');
  Readln(altura);
  write ('Digite a base do triangulo: ');
  Readln(base);
  area := (altura*base)/2;
  writeln ('A área do triângulo é igual a: ',area);
end.