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

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