Даны три отрезка a,b,c. Являются ли они сторонами треугольника? Написать программу для проверки

var a,b,c:real;
begin
write('a=');readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
 then writeln('Введенные числа являются сторонами треугольника')
 else writeln('Введенные числа не являются сторонами треугольника');
end.