Řešení:
Tři hodnoty mohou být stranami pravoúhlého trojúhelníku v případě, že z těchto hodnot lze sestrojit trojúhelník
(viz. 03.01) a zároveň vyhovují vztahu:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:real;

begin

   write('Zadejte preponu a:');
   readln(a);
   write('Zadejte preponu b:');
   readln(b);
   write('Zadejte odvesnu c:');
   readln(c);
   
   if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
      if  sqr(a)+sqr(b)=sqr(c) then
         writeln('Trojuhelnik je pravouhly')
      else
         writeln('Trojuhelnik neni pravouhly')
   else
      writeln('Nezadany strany trojuhelniku');

   readln;
end.