Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон. Если существует такой треугольник, то определите его тип (равносторонний, равнобедренный, разносторонний) Пример входных данный Пример выходных данных a b c>> 1 2 1 Не существует a b c>> 2 2 2 Равносторонний a b c>> 20 20 30 Равнобедренный a b c>> 3 4 5 Разносторонний

program zz1;

var a, b, c:integer; / /задаем переменные целого типа

begin

write ('введите первую сторону треугольника ');

read (a);

write ('введите вторую сторону треугольника ');

read (b);

write ('введите третью сторону треугольника ');

read (c);

If (a + b > c) and (c + b > a) and (a + c > b) Then

begin

write (' существует ');

If (a = b) and (c = b) and (a = c) Then write (' равносторонний ')

else

If (a b) and (c b) and (a c) Then write (' разносторонний ')

else

If (a = b) or (c = b) or (a = c) Then write (' равнобедренный ');

end

else write (' не существует ');

END.