Даны три действительных числа a, b, c. Определить, могут ли они представлять собой длину сторон одного прямоугольного треугольника.

Program formula_3;

Var a,b,c : Real;

Begin

Write('Enter A: '); ReadLn(a);

Write('Enter B: '); ReadLn(b);

Write('Enter C: '); ReadLn(c);

If (sqr(c)=sqr(a)+sqr(b)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c))

Then WriteLn('YES!')

Else WriteLn('NO!');

End.