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

Program zadanie;
Var
Begin
 Writeln('Задайте длины сторон треугольника a,b,c');
 Readln(a,b,c);
 If (a=b) and (b=c) Then Writeln('Треугольник является равносторонним')
 Else Writeln('Треугольник не равносторонний');
End.

and-логическое "и".