Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон.Если существует такой треугольник, то определите его тип (равносторонний, равнобедренный, разносторонний)

Пример

Не существует a b c>> 1 2 1

Равносторонний a b c>> 2 2 2

Равнобедренный a b c>> 20 20 30

Разносторонний a b c>> 3 4 5

var a, b, c: integer;begin

    readln(a, b, c);

    if (a + b <= c) or (b + c <= a) or (a + c <= b) then

         writeln('Не существует')

    else if(a = b)and(b = c) then

         writeln('Равносторонний')

    else if(a = b)or(b = c)or(a = c) then

         writeln('Равнобедренный')

    else

        writeln('Разносторонний')

end.

Объяснение:

Всё строится на проверках длин сторон, за у пользователя