Даны три стороны треугольника. определить существует ли треугольник с заданными сторонами, если да, то определить является ли он прямоугольным, равнобедренным или равносторонним, какой треугольник тупоугольный или остроугольный.

Program treug;

var a, b, c, max, min, srd, d:real;

begin

writeln ('Введите стороны треугольника') ;

readln (a, b, c) ;

If (a+b>c) or (b+c>a) or (a+c>b) then

begin

if (a=b) or (b=c) or (a=c) then write ('Треугольник равнобедренный') ;

if (a=b) and (b=c) then write ('Треугольник равносторонний') ;

end;

begin

Sort (a, b, c, max, min, srd) ;

d : = min * min + srd * srd;

e : = max * max;

if d>e then writeln ('Это остроугольный треугольник!')

else if d
else if d = e then writeln ('Это прямоугольный треугольник!') ;

end;

else writeln ('Такого треугольника не существует') ;

end.