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

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