Написати програму, що за довжинами сторін трикутника визначає який він (рівнобедрений, рівносторонній чи довільний)./Написать программу, по длинам сторон треугольника определяет какой он (равнобедренный, равносторонний или произвольный).

Var   a,b,c:real;BeginWrite('Введите длины сторон треугольника: ');ReadLn(a,b,c);if (a<b+c)and(b<c+a)and(c<a+b) then   Begin   if (a=b)and(b=c) then WriteLn('Треугольник равносторонний')   else if (a=b)or(b=c)or(c=a) then WriteLn('Треугольник равнобедренный')        else WriteLn('Произвольный')   Endelse WriteLn('Треугольник не существует');End.