Řešení:
Řešení má tři kroky:
1. Vypočítat délku úseku e jako polovinu rozdílu základen.
2. Pomocí Pytharorovy věty vypočítat výšku lichoběžníku z ramene b a úseku e.
3. Ze základen a výšky lichoběžníku spočítat obsah lichoběžníku.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,e,vyska,obsah:real;

begin

   writeln('Zadejte zakladnu a: ');
   readln(a);
   writeln('Zadejte zakladnu c: ');
   readln(c);
   writeln('Zadejte rameno b: ');
   readln(b);

   if (a>0) and (c>0) and (b>0) and (2*b+c>a) then
   begin
      e:=(a-c)/2;
      vyska:=sqrt(sqr(b)-sqr(e));
      obsah:=(a+c)*vyska/2;
      writeln('Obsah lichobezniku: ',obsah:0:3);
   end
   else
      writeln('Vypocet nelze provest');   
   readln;

end.