Var
a,b,c:real;         
begin
write('Введите сторону a='); readln(a);
write('Введите сторону b='); readln(b);
write('Введите сторону c='); readln(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
if (a=b) and (a=c) and (c=b) then
write('Треугольник равносторонний')
else
if (a=b) or (b=c) or (a=c) then
write('Треугольник равнобедренный')
else
write('Треугольник разносторонний')
else
write('Треугольник не существует');
end.