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