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

Var a,b,c: real;Beginwrite('Введите 3 числа: ');readln (a,b,c);if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)else writeln('Эти числа не являются сторонами прямоугольного треугольника')End.