Даны три отрезка 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.