Процедуры и функции...

[hohol90]

Помогите пожалуйста с атестационным примером, очень надо:

Даны действительные числа a, b, c, d. Найти площадь пятиугольника изображенного на рисунке. (Определить процедуру вычисления площади треугольника по трем его сторонам).

[ОДИНОЧЕСТВО В СЕТИ]

var a,b,c,d,s1,s:double;
procedure square(a,b,c:double;var s:double);
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*p-c);
end;
begin
readln(a,b,c,d);
s:=0;
square(1,a,2,s1);
s:=s+s1;
square(2,2.5,b,s1);
s:=s+s1;
square(2.5,c,d,s1);
s:=s+s1;
Writeln(s:6:3);
readln;
end.

[hohol90]

Большое спасибо, но если не сложно объясни что значит (Определить процедуру вычисления площади треугольника по трем его сторонам).

[OCTAGRAM]

Формула Герона