Řešení:
Řešení má dva kroky:
1. Vypočítat pomocí Pythagorovy věty z ramene b a poloviny základny a výšku trojúhelníku.
2. Ze základny a vypočtené výšky vypočítat obsah trojúhelníku.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,vyska,obsah:real;

begin

   write('Zadejte zakladnu: ');
   readln(a);
   write('Zadejte rameno: ');
   readln(b);

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

end.