Помогите с Паскалем!
Нужна программа, которая определит по введенным 3 сторонам, существует ли треугольник.

Program n1;var a,b,c: real;beginreadln(a,b,c);if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then write('существует') else write('не существует');end.