记录编号	18996	评测结果	AAAAAATTT
题目名称	[USACO Jan08] 化装晚会	最终得分	66
用户昵称	1102	是否通过	未通过
代码语言	Pascal	运行时间	3.013 s
提交时间	2010-09-27 09:57:44	内存使用	0.18 MiB

program xxxx;
var n,s,i,x,j:longint;
    a:array[1..20000] of longint;
begin
 assign(input,'costume.in');
 reset(input);
 assign(output,'costume.out');
 rewrite(output);
 read(n,s);
 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[i]+a[j]<=s then
     inc(x);
 write(x);
 close(input);
 close(output);
end.