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

var a,b,c:real;beginwriteln ('Введите стороны треугольника');read (a,b,c);if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) thenbeginif (sqr(a)+sqr(b)=sqr(c)) then writeln ('Это прямоугольный треугольник');if (sqr(a)+sqr(b)>sqr(c)) then writeln ('Это остроугольный треугольник');if (sqr(a)+sqr(b)<sqr(c)) then writeln ('Это тупоугольный треугольник');endelse writeln ('Такого треугольника не существует');end.

var a,b,c :integer;beginreadln(a,b,c);if (a+b > c) and (b+c > a) and (c+a > b) thenbeginif (a=b) and (b=c) and(c=a) thenwriteln('Существует Равносторонний')else if (a=b)or (b=c) or (c=a) thenwriteln('Существует Равнобедренный')else if(a<>b) and (b<>c) and (c<>a) thenwriteln('Существует Разносторонний')endelsewriteln('Не существует');end.