Ř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 p obecného čtyřúhelníku. Ve vzorcích je s pouze pomocná proměnná.

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);

   if (a>0) and (b>0) and (c>0) and (d>0) and (uac>0)
            and (a+b>uac) and (c+d>uac) then
   begin
      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);
   end
   else
      writeln('Vypocet nelze provest');   
   readln;

end.