2.Составить программу, определяющую, существует ли треугольник, длины сторон которого равны a, b и с.
язык пишите
паскаль
Var a,b,c:integer; Begin Readln(a,b,c); If (a+b>c) and (a+c>b) and (b+c>a) then Write('yes') Else write('no').