珠心算测验

前言
“2B代表的不只是铅笔，还有你。”欢迎来到嘟嘟课堂。今天，嘟嘟老师讲一道淼题——猪心算（珠心算）测验。
题目描述
珠心算是一种通过在脑中模拟算盘变化来完成快速运算的一种计算技术。珠心算训练，既能够开发智力，又能够为日常生活带来很多便利，因而在很多学校得到普及。
某学校的珠心算老师采用一种快速考察珠心算加法能力的测验方法。他随机生成一个正整数集合，集合中的数各不相同，然后要求学生回答：其中有多少个数，恰好等于集合中另外两个（不同的）数之和？
最近老师出了一些测验题，请你帮忙求出答案。
输入
输入文件名为 count.in。
输入共两行，第一行包含一个整数 n，表示测试题中给出的正整数个数。
第二行有 n 个正整数， 每两个正整数之间用一个空格隔开，表示测试题中给出的正整数。
输出
输出文件名为 count.out。
输出共一行，包含一个整数，表示测验题答案。
样例输入
4
1 2 3 4
样例输出
2
样例说明
由 1+2=3， 1+3=4，故满足测试要求的答案为 2。 注意，加数和被加数必须是集合中的两个不同的数。
数据范围限制
对于 100%的数据， 3 ≤ n ≤ 100，测验题给出的正整数大小不超过 10,000。
思路
此题十分的水。直接暴力枚举搞事情，三重循环，i和j枚举两个数，如果a【k】=a【j】+a【i】就答案加一。
代码

var
        a:array[1..100000] of longint;
        p:array[1..100000] of boolean;
        i,j,k,n,ans:longint;
begin
        assign(input,'count.in');reset(input);
        assign(output,'count.out');rewrite(output);
        fillchar(p,sizeof(p),true);
        readln(n);
        for i:=1 to n do
                read(a[i]);
        for i:=1 to n-1 do
        begin
                for j:=i+1 to n do
                begin
                        if (a[i]<>a[j]) then
                        begin
                                for k:=1 to n do
                                begin
                                        if (p[k]=true) and (a[i]+a[j]=a[k]) then
                                        begin
                                                p[k]:=false;
                                                inc(ans);
                                        end;
                                end;
                        end;
                end;
        end;
        write(ans);
        close(input);
        close(output);
end.