Вычислить площадь фигуры, заданной сторонами. - Pascal

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

Вычислить площадь фигуры, заданной сторонами. Фигура не является прямоугольником, а треугольники, которые ее составляют, не являются прямоугольными.

Решение задачи: «Вычислить площадь фигуры, заданной сторонами.»

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

//Площадь 1 треугольника
function Sq(a,b,c:real):real;//a,b,c-стороны треугольника
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Sq:=s;
end;
//площади всех треугольников
var a1,b1,c1,a2,b2,c2.....,s:real;
begin
//ввод длин сторон
s:=Sq(a1,b1,c1)+Sq(a2,b2,c2)+...+;
write('S=',s:0:2);
end.

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

Объявление функции для вычисления площади треугольника:
- Названия переменных: a, b, c
- Значения переменных: real - тип данных для хранения чисел c плавающей запятой (например, 1.5, 3.14)
В функции происходит вычисление площади треугольника по заданным сторонам:
- Названия переменных: p, s
- Значения переменных:
  - p:=(a+b+c)/2 - полупериметр треугольника
  - s:=sqrt(p*(p-a)*(p-b)*(p-c)) - площадь треугольника по формуле Герона
  - Sq:=s - возврат значения площади
Основная часть программы:
- Названия переменных: a1, b1, c1, a2, b2, c2 и т.д. (переменные для сторон треугольников), s (общая площадь)
- Значения переменных:
  - Ввод длин сторон
  - s:=Sq(a1,b1,c1)+Sq(a2,b2,c2)+...+ - вычисление площади всех треугольников через вызов функции Sq
  - write('S=',s:0:2) - вывод значения общей площади всех треугольников до 2 знаков после запятой.