Разработка Программы на языке паскаль для определения типа треугольника по координатам

Ошибка в 18-той строке. Должно быть не "<", а "<=". Если длина наибольшей стороны будет приравниваться сумме других 2-ух сторон, то это будет теснее не треугольник, а отрезок.

Еще раз проверил, все правильно, оплошности нет. Приношу прощения.

1) Вычисляем длину большей стороны. То есть обретаем max(x,y,z).

2) Проверяем, может ли такой треугольник вообщем существовать. Сопоставляем длину большей стороны с суммой длин других 2-ух сторон. Понятно, что сумма длин 2-ух наименьших сторон должна быть больше длины большей стороны.

3) Сопоставляем сумму квадратов длин наименьших сторон, с квадратом длины большей стороны. Если квадрат большей стороны меньше, то противолежащий угол острый. Если больше - тупой. Ну, а если сумма квадратов длин наименьших сторон одинаковы квадрату длины большей стороны, то противолежащий угол - прямой.