Четырехугольник задан своими сторонами a,b,c,d и диагональю r. Вычислить площадь четырехугольника с использованием функции нахождения площади треугольника — Pascal(Паскаль)

program func8;

uses crt;

var
  a, b, c, d, r, S1, S2, S: real;

Function f(x, y, z: real): real;
var
  p: real;
begin
  p := (x + y + z) / 2;
  f := Sqrt(p * (p - x) * (p - y) * (p - z));
end;

begin
  Writeln('введите 4 стороны и диагональ четырехугольника');
  readln(a, b, c, d, r);
  S1 := f(a, b, r);
  S2 := f(r, c, d);
  S := S1 + S2;
  Writeln(S:4:2);
  readln;

end.