Даны три отрезка с длиной a,b,c. Создайте программу которая определяет
возможности или невозможности построение треугльника из данных
отрезков.

Если прямоугольного треугольника:

var

 a, b, c : longint;

begin

 write('Введите a, b и c через пробел: ');

 readln(a, b, c);

 if (sqr(a) = sqr(b) + sqr(c)) or  

    (sqr(b) = sqr(a) + sqr(c)) or

    (sqr(c) = sqr(a) + sqr(b)) then write('Можно!') else write('Нельзя!')

end.

Ответ:

Для любого треугольника : сумма 2-х сторон больше 3-й

Объяснение:

var a,b,c:integer;

begin

Readln(a,b,c);

if (a+b>c) and (b+c>a) and (a+c>b) then Writeln('треугольник существует')

else Writeln('Не существует');

end.