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<e then writeln('Это тупоугольный треугольник!')
else if d=e then writeln('Это прямоугольный треугольник!');
end;
else writeln ('Такого треугольника не существует');
end.
