составьте программу которая по трем введенным вами числам определить ,могут ли эти числа быть длинами сторон треугольника

program treyg;uses crt;var a,b,c : integer;begin Write('Введите три числа');Readln(a,b,c);if (a<b+c) and (b<a+c) and (c<a+b) then Writeln('Эти числа могут быть длинами сторон треугольника')else Writeln('Треугольника с такими сторонами не существует');end.