По введенным с клавиатуры длинам трех отрезков определить: можно ли из них составить треугольник?

Var
  a,b,c: integer;
begin
  readln(a,b,c);
  if (a>b+c) and (b>a+c) and (c>a+b) then writeln('yes') else writeln('no')
end.