Вычислить площадь треугольника по формуле Герона - Pascal

ВЫЧЕСЛИТЬ ПЛОЩАДЬ ТРЕУГОЛЬНИКА ПО ФОРМУЛЕ ГЕРОНА S=√p(p-a)(p-b)(p-c) где p-полупериметр a,b,c-стороны

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

var
a,b,c,p,s:real;
BEGIN
 writeln('введите длины сторон');
 readln(a,b,c);
 p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s= ', s:8:3);
 END.

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

В начале объявляются переменные a, b, c, p и s типа real.
Затем выводится сообщение для ввода длин сторон треугольника.
С помощью функции readln считываются значения длин сторон треугольника a, b и c.
Переменная p инициализируется как половина суммы всех сторон треугольника.
Функция sqrt используется для вычисления квадратного корня из значения переменной p.
Значение переменной s вычисляется по формуле Герона для площади треугольника и сохраняется в переменной s.
Наконец, выводится значение переменной s с использованием функции writeln.