Program chaynick var a, b, c: real; begin writeln ('существует ли треугольник со сторонами а,b,c. Введите а'); readln (a); write ('Введите b'); readln (b); write ('Введите с'); readln (с); if a+b>c and a+c>b and b+c>a then writeln ('Существует') else writeln ('Не существует') end.