记录编号	140675	评测结果	AAAAAAAAAA
题目名称	[NOIP 2014PJ]珠心算测试	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2014-11-23 15:33:29	内存使用	0.24 MiB

var
a,h:array[1..20000]of integer;
i,j,n,ans:integer;
begin
assign(input,'countb.in');
assign(output,'countb.out');
reset(input);
rewrite(output);
read(n);
for i:=1 to n do
  begin
  read(a[i]);
  for j:=i-1 downto 1 do
  h[a[i]+a[j]]:=1;
  end;
for i:=1 to n do
ans:=ans+h[a[i]];
writeln(ans);
close(input);close(output);
end.