Вчем ошибка? . даны длины трех отрезков. выяснить, можно ли из этих отрезков составить произвольный треугольник. выходные данные: в выходной поток вывести 'yes' или 'no'. program z1236; var a,b,c: longint; begin readln(a,b,c); if ((a=b+c)and(b=a+c)and(c=b+a)) then writeln ('no')else writeln ('yes'); end.

Надо не равенство брать, а неравенство, причем:
чтобы составить треугольник, сумма двух сторон должна быть больше третьей, т.е. (a>=b+c) and (b>=a+c) and (c>=b+a)  - условие, при котором  НЕ выполняется условие задачи (так, чтобы в твоей программе не менять местами NO и  YES). А так все верно.