记录编号	18997	评测结果	AWWWWWWTT
题目名称	[USACO Jan08] 化装晚会	最终得分	11
用户昵称	gragon	是否通过	未通过
代码语言	Pascal	运行时间	2.612 s
提交时间	2010-09-27 09:59:38	内存使用	0.12 MiB

program ex;
var
a:array[1..2000] of longint;
m,x,s,i,j,n:longint;
f:text;
begin
assign(f,'costume.in');
reset(f);
readln(f,n,s);
for i:=1 to n do
readln(f,a[i]);
close(f);
m:=0;x:=0;
for i:=1 to n do
for j:=i+1 to n do
begin
m:=i+j;
if m<s then
inc(x);
end;
assign(f,'costume.out');
rewrite(f);
writeln(f,x);
close(f);
end.