Řešení:
Pomocí Pythagorovy věty lze přeponu c pravoúhlého trojúhelníku vypočítat ze zadaných délek stran a,b podle vzorce:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:real;

begin

   write('Zadejte delku prvni odvesny: ');
   readln(a);
   write('Zadejte delku druhe odvesny: ');
   readln(b);

   if (a>0) and (b>0) then
   begin
      c:=sqrt(sqr(a)+sqr(b));
      writeln('Delka prepony=',c:0:3);
   end
   else
      writeln('vypocet nelze provest');

   readln;

end.