Элементы массива X(n) представляют собой длины сторон треугольников a,b,c. Определить, сколько равносторонних треугольников можно построить из элементов этого массива, причем каждый элемент имеет право принимать участие в формировании лишь одного треугольника — Pascal(Паскаль)

uses crt;
const max=100;
var a:array[1..max] of word;
    n,i,j,k,r:byte;
begin
clrscr;
repeat
write('Размер массива до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' длин сторон треугольников:');
for i:=1 to n do
 begin
  repeat
   write('a[',i,']=');
   readln(a[i]);
  until a[i]>0;
 end;
clrscr;
writeln('Массив сторон:');
for i:=1 to n do
write(a[i],' ');
writeln;
r:=0;
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n do
if (a[i]=a[j])and(a[j]=a[k]) then r:=r+1;
write('Равносторонних треугольников=',r);
readln
end.