Составьте программу позволяющую определить являются ли числа a, b, c пифагоровыми тройками.

Var

a, b, c: real;

begin

writeln ('Введите числа a, b, c') ;

readln (a, b, c) ;

if (sqr (a) = sqr (b) + sqr (c)) or (sqr (b) = sqr (a) + sqr (c)) or (sqr (c) = sqr (a) + sqr (b)) then

writeln ('Данные числа являются пифагоровым тройками')

else

writeln ('Данные числа не являются пифагоровым тройками') ;

end.