program retang;

function triangulo_retangulo (a, b, c: real): boolean;
var
   sqr_a, sqr_b, sqr_c : real;
begin
   sqr_a := sqr(a);
   sqr_b := sqr(b);
   sqr_c := sqr(c);
   triangulo_retangulo := (sqr_a = sqr_b + sqr_c) or
                          (sqr_b = sqr_a + sqr_c) or
                          (sqr_c = sqr_a + sqr_b);

end;

var
   a, b, c : integer;

begin
   writeln('Digite o comprimento dos lados de um triângulo');
   write('a: '); read(a);
   write('b: '); read(b);
   write('c: '); read(c);
   if (triangulo_retangulo (a, b, c)) then
      writeln('O triangulo é retângulo.')
   else
      writeln('O triangulo não é retângulo.');
end.