Var
a,b,c:real;
Begin
Write('Введите длины сторон треугольника: ');
ReadLn(a,b,c);
if (a Begin
if (a=b)and(b=c) then WriteLn('Треугольник равносторонний')
else if (a=b)or(b=c)or(c=a) then WriteLn('Треугольник равнобедренный')
else WriteLn('Произвольный')
End
else WriteLn('Треугольник не существует');
End.