Напишите программу, которая о трех числа решает могут ли они быть сторонами прямоугольного треугольника. Напишите программу так чтобы любое число могло быть гипотенузой. паскаль

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program check_triangle;
var
a, b, c: integer;
begin
writeln('Введите три числа:');
readln(a, b, c);
if (a*a + b*b = c*c) or (a*a + c*c = b*b) or (b*b + c*c = a*a) then
writeln('Эти числа могут быть сторонами прямоугольного треугольника.')
else
writeln('Эти числа не могут быть сторонами прямоугольного треугольника.');
end.

Вы можете ввести три числа и программа проверит, могут ли они быть сторонами прямоугольного треугольника.