Выяснить можно ли построить треугольник с тремя данными сторонами.
Условие b+с>а и а+с>b и а+b>с. Стороны вводятся с клавиатуры.
В паскале

 Var A,B,C:real; Begin WriteLn('Введите длины сторон треугольника'); ReadLn(A,B,C); if (A<C+B)and(B<C+A)and(C<A+B) then WriteLn('Треугольник существует') else WriteLn('Треугольник построить нельзя') End.