Question

2.Составить программу, определяющую, существует ли треугольник, длины сторон которого равны a, b и с.

Answer 1

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').