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

var a, b, c : real;
BEGIN
  if (a = b) AND (a = c) AND (b = c) then writeln("Треугольник равносторонний")
  else writeln("Треугольник не равносторонний")