Помогите пожалуйста, составьте алгоритм :является ли треугольник со сторонами АВС равнобедренными и равносторонними

Спасибо большое

:)

1.program wk;var a,b,c:integer;beginreadln(a);readln(b);readln(c);if (a=b) and (a=c) and (b=c)then writeln('Треугольник равносторонний');end.2 .  program wk;var a,b,c:integer;beginreadln(a);readln(b);readln(c);if (a=b)then writeln('Треугольник равнобедренный');end.