Řešení:
Strany a výška trojúhelníku ze zadaných úseků přepony c se vypočtou pomocí následujících vzorců:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var ca,cb,vyska,a,b,c:real;

begin

   write('Zadejte usek ca: ');
   readln(ca);
   write('Zadejte usek cb: ');
   readln(cb);

   if (ca>0) and (cb>0) then
   begin
      c:=ca+cb;
      vyska:=sqrt(ca*cb);
      a:=sqrt(ca*c);
      b:=sqrt(cb*c);
      writeln('Strana a=',a:0:3);
      writeln('Strana b=',b:0:3);
      writeln('Strana c=',c:0:3);
      writeln('Vyska v=',vyska:0:3);
   end
   else
      writeln('Vypocet nelze provest');   

   readln;

end.