Нужно воспользоваться свойством треугольников:
Любая сторона треугольника меньше суммы двух других сторон и больше их разности .
---------------------------------------------------Pascal--------------------------------------------------
Var a,b,c:integer;
begin
readln(a,b,c);
if (ab-c) and (ba-c) and (cb-a) then
writeln('Yes')
else
writeln('No');
end.