记录编号	72929	评测结果	AAAAAAAAAE
题目名称	数对的个数	最终得分	90
用户昵称	翟佳麒	是否通过	未通过
代码语言	Pascal	运行时间	0.106 s
提交时间	2013-10-19 18:45:12	内存使用	0.44 MiB

program p610;
var
n,c,i,j,k:longint;
a:array[1..100000] of longint;
begin
assign(input,'dec.in');
reset(input);
assign(output,'dec.out');
rewrite(output);
readln(n,c);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(a[i]-a[j])=c then k:=k+1;
writeln(k);
end.