Составьте алгоритм, с помощью которого можно определить, является ли треугольник с заданными длинами сторон a, b, c равносторонним.

Program anima;Var a,b,c:integer;  // Стороны треугольникаbeginwriteln('Введите длины сторон: '); // Вывод на экран с последующей строкойreadln(a,b,c); // Вводимые переменные (стороны)if (a=b) and (a=c) and (b=c) then // Условие  writeln('Треугольник равносторонний')else  writeln('Треугольник не равносторонний');readln;end.