Составить программу, использующую функцию вычисления площади треугольника - Pascal

Формулировка задачи:

Составить программу с использованием конструкции function, которая возвращает значение площади равностороннего треугольника по заданной длине его стороны pl_treug(a) Значение длины вводится из основной программы с клавиатуры

Не могу составить тело программы, пытался много раз, не работает, код вроде бы верный: // а - длинна стороны, а имя функции(pl_treug) площадь

function pl_treug(a:real):real;
begin
 pl_treug := sqrt(3) * sqr(a) / 4;
end;

Решение задачи: «Составить программу, использующую функцию вычисления площади треугольника»

Листинг программы

function pl_treug(a:real):real;
begin
 pl_treug := sqrt(3) * sqr(a) / 4;
end;
var a:real;
begin
repeat
write('Введите сторону треугольника a>0 a=');
readln(a);
until a>0;
write('Площадь=',pl_treug(a):0:2)
end.

Объяснение кода листинга программы

Объявляется функция с названием pl_treug с одним параметром a типа real, которая возвращает значение типа real.
В функции используется формула для вычисления площади треугольника с высотой a, в которой используются функция sqrt для вычисления квадратного корня и функция sqr для возведения числа в квадрат.
Объявляется переменная a типа real, которая будет использоваться для хранения значения стороны треугольника.
Используется цикл repeat-until для принудительного ввода положительного значения стороны треугольника.
Выводится приглашение для ввода значения стороны треугольника.
Считывается значение стороны треугольника в переменную a.
Проверяется условие, что введенная сторона больше нуля.
Вызывается функция pl_treug(a) для вычисления площади треугольника с заданной стороной a.
Выводится результат вычисления площади треугольника с округлением до двух знаков после запятой.