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;
<span>begin</span>
Sort<span>(</span>a<span>,</span>b<span>,</span>c<span>,</span>max<span>,</span>min<span>,</span>srd<span>)</span>;
d<span>:=</span>min<span>*</span>min<span>+</span>srd<span>*</span>srd;
e<span>:=</span>max<span>*</span>max;
<span>if</span> d>e <span>then</span><span>writeln</span><span>(</span><span>'Это остроугольный треугольник!'</span><span>)</span>
<span>else</span><span>if</span> d<e <span>then</span><span>writeln</span><span>(</span><span>'Это тупоугольный треугольник!'</span><span>)</span>
<span>else</span><span>if</span> d<span>=</span>e <span>then</span><span>writeln</span><span>(</span><span>'Это прямоугольный треугольник!'</span><span>)</span>;
<span>end</span>;
else writeln ('Такого треугольника не существует');
end.