// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
function geron(a,b,c:real):real;
begin
var p:=(a+b+c)/2;
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end;
begin
var x,y,z,t,d:real;
Write('Введите x,y,z,t,d через пробел: ');
Read(x,y,z,t,d);
Writeln('S=',geron(x,d,t)+geron(d,y,z):0:4)
end.
Тестовое решение:
Введите x,y,z,t,d через пробел: 3 4 5 6 8 7
S=15.8260