liliana :

В PascalABC NET инструкция USES CRT не работает (исключите её).

________________________________________________________

Даны действительные положительные числа x, y, z. Выяснить, существует ли
треугольник с длинами сторон х, у, z и является ли он остроугольным?

Из геометрии: каждая сторона треугольника меньше суммы двух других его сторон.

Если x²+y² =z² , то треугольник прямоугольный

Если квадрат каждой стороны меньше суммы квадратов двух других сторон,

то треугольник остроугольный.

В программе переменная  flag - это признак, он станет равен 1,

если 3-к со сторонами x, y, z существует.

Для тестирования программы введите

3 4 5

5 5 8

3 3 3

5 5 6