Отрезки а, в, с заданы с клавиатуры…

От правила триугольника или неравенства триугольника var a,b,c: integer; Begin read (a,b,c); if (a>=b+c) or (b>=a+c) or (c>=a+b) then writeln ('не существует') else writeln ('существует'); End.