var side1, side2, side3: real; maxSide, sumOfSquares: real;
begin writeln′Enterthethreesidesofthetriangle:′'Enter the three sides of the triangle:'′Enterthethreesidesofthetriangle:′; readlnside1,side2,side3side1, side2, side3side1,side2,side3;
// Найдем самую длинную сторону if (side1 > side2) and (side1 > side3) then maxSide := side1 else if (side2 > side1) and (side2 > side3) then maxSide := side2 else maxSide := side3;
// Проверим условие прямоугольности треугольника if maxSide = side1 then sumOfSquares := sqrside2side2side2 + sqrside3side3side3
else if maxSide = side2 then sumOfSquares := sqrside1side1side1 + sqrside3side3side3
else sumOfSquares := sqrside1side1side1 + sqrside2side2side2;
if sqrmaxSidemaxSidemaxSide = sumOfSquares then writeln′Thetriangleisright−angled.′'The triangle is right-angled.'′Thetriangleisright−angled.′
else writeln′Thetriangleisnotright−angled.′'The triangle is not right-angled.'′Thetriangleisnotright−angled.′;
program CheckRightTriangle;
var
side1, side2, side3: real;
maxSide, sumOfSquares: real;
begin
writeln′Enterthethreesidesofthetriangle:′'Enter the three sides of the triangle:'′Enterthethreesidesofthetriangle:′;
readlnside1,side2,side3side1, side2, side3side1,side2,side3;
// Найдем самую длинную сторону
if (side1 > side2) and (side1 > side3) then
maxSide := side1
else if (side2 > side1) and (side2 > side3) then
maxSide := side2
else
maxSide := side3;
// Проверим условие прямоугольности треугольника
if maxSide = side1 then
sumOfSquares := sqrside2side2side2 + sqrside3side3side3 else if maxSide = side2 then
sumOfSquares := sqrside1side1side1 + sqrside3side3side3 else
sumOfSquares := sqrside1side1side1 + sqrside2side2side2;
if sqrmaxSidemaxSidemaxSide = sumOfSquares then
writeln′Thetriangleisright−angled.′'The triangle is right-angled.'′Thetriangleisright−angled.′ else
writeln′Thetriangleisnotright−angled.′'The triangle is not right-angled.'′Thetriangleisnotright−angled.′;
end.