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

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