pascal问题：【暴力】三角形个数

Description

给出n个1到10000之间的整数，以它们为边长（每个数最多选一次）能组成多少个不全等的三角形？1<=n<=50。

Input

第一行 n
第二行 n个整数

Output

方案数

Sample Input

5
1 2 3 4 5

Sample Output

3
============================
比较急。。所以希望各位高手帮个忙啦~
我自己写的评测结果（答案错误）
Source

Problem Id:1142 User Id:wsf
Memory:448K Time:0MS
Language:Pascal Result:Wrong Answer

Source

var
n,i,j,k,x:integer;
a,b:array[0..51]of integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then begin k:=a[j];a[j]:=a[i];a[i]:=k;end;
k:=0;
for i:=1 to n do
if a[i+1]<>a[i] then begin
inc(k);
b[k]:=a[i];
end;
x:=0;
n:=k;
for i:=1 to n do
for j:=i+1 to n do
for k:=j+1 to n do
if (b[i]+b[j]>b[k])an

pascal问题：【暴力】三角形个数 pascal问题:【暴力】数字K 螺旋三角 PASCAL 暴力问题 pascal问题 pascal问题！`````` Pascal问题！ PASCAL问题 三角问题 暴力摩托的问题