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

Если первая сторона равна отдельно второй и отдельно третьей стороне, то вторая сторона равна третьей и все стороны равны между собой.

После ввода значений программа сравнивает длину первой стороны со второй и третьей сторонами. Если соблюдаются одновременно оба равенства, то треугольник равносторонний.

program sum_n;

var a, b, c: real;

begin

writeln ('Введите длины сторон треугольника');

readln (a, b, c);

if (a = b) and (a = c) then writeln ('Треугольник равносторонний')

else writeln ('Треугольник не равносторонний')

end.