Вычислить площадь треугольника pascal abc

В "старом" стиле:
var
  a, h: real;
begin
  writeln('Введите длину стороны и длины проведённой к ней высоты:');
  readln(a, h);
  writeln('Площадь треугольника равна ', a * h / 2)
end.

Тоже самое, но в немного осовремененном виде (у меня запускается на PascalABC.NET 3.3 сборка 1531, если у вас не работает - обновите программу):
begin
  var (a, h) := ReadReal2('Введите длину стороны и длины проведённой к ней высоты:');
  println('Площадь треугольника равна', a * h / 2);
end.