Řešení:
Úhlopříčka čtyřúhelníku ho dělí na dva trojúhelníky. Obsahy trojúhelníků vypočteme pomocí Heronova vzorce, po sečtení
obou obsahů dostaneme výsledný obsah obecného čtyřúhelníku.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,d,uac,s1,s2,p1,p2,obsah:real;

begin

   write('Zadejte stranu a: ');
   readln(a);
   write('Zadejte stranu b: ');
   readln(b);
   write('Zadejte stranu c: ');
   readln(c);
   write('Zadejte stranu d: ');
   readln(d);
   write('Zadejte uhlopricku AC: ');
   readln(uac);

   s1:=(a+b+uac)/2;
   p1:=sqrt(s1*(s1-a)*(s1-b)*(s1-uac));
   s2:=(c+d+uac)/2;
   p2:=sqrt(s2*(s2-c)*(s2-d)*(s2-uac));
   obsah:=p1+p2;

   writeln('Obsah ctyruhelniku=',obsah:0:3);

   readln;

end.