Var a,b,c:real;
begin
writeln (Введите стороны треугольника);
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln (Существует)
else writeln (Не существует);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.