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