program CheckRightTriangle;

var
a, b, c: integer;

begin
write('Введите длину первой стороны: ');
readln(a);

write('Введите длину второй стороны: ');
readln(b);

write('Введите длину третьей стороны: ');
readln(c);

// сортируем стороны по возрастанию
if (a > b) then
begin
a := a + b;
b := a - b;
a := a - b;
end;

if (b > c) then
begin
b := b + c;
c := b - c;
b := b - c;
end;

if (a > b) then
begin
a := a + b;
b := a - b;
a := a - b;
end;

// проверяем является ли треугольник прямоугольным
if (c c = a a + b * b) then
writeln('Треугольник является прямоугольным!')
else
writeln('Треугольник не является прямоугольным.');
end.