Все свои напишите программу, которая определяет прямоугольный ли треугольник. на ввод программе длины сторон треугольника.

Var
a, b, c: real;
begin
  Read(a, b, c);
  if (a * a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = b*b + a*a) then
    Writeln('Треугольник прямоугольный!')
  else
    Writeln('Треугольник непрямоугольный!')
end.

Пример:

3 4 5
Треугольник прямоугольный!