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

Program v;
Var a,b,c: integer;
Begin
Read(a,b,c);
If a=b then
If b=c then writeln('a=b=c')
Else writeln ('треугольник не равносторонний');
Reason;
End.