Пользователь вводит длины отрезков (стороны треугольника) определить является ли он прямоугольным?

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

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

П2 -> П1 -> П0 x^2 ИП1 x^2 + ИП2 x^2 - x#0 36 ИП0 x^2 ИП2 x^2 + ИП1 x^2 - x#0 36 ИП2 x^2 ИП1 x^2 + ИП0 x^2 - x#0 36 0 С/П 1 С/П

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

Результат: 1, если является, иначе 0.