Řešení:
Použitím Pythagorovy věty lze ze zdaných stran a,b obdélníku vypočítat jeho úhlopříčku podle vzorce:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,u:real;

begin

   write('Zadejte stranu a: ');
   readln(a);
   write('Zadejte stranu b: ');
   readln(b);

   if (a>0) and (b>0) then
   begin
      u:=sqrt(sqr(a)+sqr(b));
      writeln('Uhlopricka obdelniku=',u:0:3);
   end
   else
      writeln('Vypocet nelze provest');

   readln;

end.