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

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.