!!!!!!!!!!!!!!!!!!!!юзер вводит длины отрезков (стороны треугольника) Определить

Написать программу

Предполагаем без проверки, что треугольник по данным длинам сторон выстроить можно (по другому надобно убедиться. что сумма каждой пары сторон больше третьей стороны).
А далее выясняем, какая сторона самая длинноватая и полагаем, что две другие - это катеты. И проверяем, производится ли аксиома Пифагора с точностью до какой-то возможной погрешности, к примеру, до 10.

const
  eps=1e-9; // возможная погрешность
var
  a,b,c,t:real; // c - гипотенуза
begin
  Write('Введите длины сторон треугольника: '); Read(a,b,c);
  if agt;c then begin t:=a; a:=c; c:=t end;
  if bgt;c then begin t:=b; b:=c; c:=t end;
  if абс(a*a+b*b-c*c)lt;=eps then Writeln('Треугольник прямоугольный')
  else Writeln('Треугольник не прямоугольный')
end.

П2 -gt; П1 -gt; П0 x^2 ИП1 x^2 + ИП2 x^2 - x0 36 ИП0 x^2 ИП2 x^2 + ИП1 x^2 - x0 36 ИП2 x^2 ИП1 x^2 + ИП0 x^2 - x0 36 0 С/П 1 С/П

Ввод: сторона_1 ^ сторона_2 ^ сторона_^3 С/П.

Итог: 1, если является, по другому 0.