Составьте алгоритм, с помощью которого можно определить, существует ли треугольник с длинами сторон a, b, с.

Var a,b,c:real;
Begin
Writeln(' введите стороны треугольника');
Read(a, b, c);
If (a<b+c) and ( b<a+c) and(c<a+b) then
Write(‘треугольник существует')
Else Writeln('не существует')
End.