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.