Написати програму, що за довжинами сторн трикутника визнача який вн (рвнобедрений,

Язык программирования какой?

Var
   a,b,c:real;
Begin
Write('Введите длины сторон треугольника: ');
ReadLn(a,b,c);
if (alt;b+c)and(blt;c+a)and(clt;a+b) then
   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.