Ř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,v,o:real;

begin

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

   e:=(a-c)/2;
   v:=sqrt(sqr(b)-sqr(e));
   o:=(a+c)*v/2;

   writeln('Obsah lichobezniku: ',o:0:3);

   readln;

end.