Даны длины трех треугольников a,b,c. опрелелить существует ли треугольник с такими сторонами и если да, то вычислите его периметр. решите плитз через abc packal. напишите программу.

Var a, b, c: real
BEGIN
write ('Vvedite a, b, c'); readln (a, b, c);
If ((a+b>c) and (a+c>b) and (b+c>a)) then writeln ('Tr-nik suschestvuet, P = ', a+b+c)
else writeln ('Tr-nik ne suschestvuet');
END.