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

Program n1;
var a,b,c: real;
begin
readln(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.