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

var a, b, c:integer;

begin

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

readln (a);

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

readln (b);

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

readln (c);

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

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

end.