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;