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

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