记录编号	9986	评测结果	AAAAAAAAAA
题目名称	诸侯安置	最终得分	100
用户昵称	.Xmz	是否通过	通过
代码语言	Pascal	运行时间	0.005 s
提交时间	2009-04-23 16:12:15	内存使用	0.27 MiB

program xmz;
var
f:array[0..200,0..200]of longint;
n,k,a,b:longint;
f1,f2:text;
function md(x:longint):longint;
 begin
  if x mod 2=0 then md:=x-1 else md:=x;
 end;
begin
 assign(f1,'empire.in');assign(f2,'empire.out');
 reset(f1);rewrite(f2);
 read(f1,n,k);
 if k>2*n-2 then write(f2,0)
 else if k=0 then write(f2,1)
 else
 begin
  for a:=1 to 2*n-1 do
   begin
   if a mod 2=0 then f[a,1]:=(trunc(a/2*a)) mod 504;
   if a mod 2<>0 then f[a,1]:=(trunc(((a-1)/2)*(a-1)+a)) mod 504;
   end;
  for a:=1 to 2*n-1 do
   for b:=2 to k do
    if a>b then f[a,b]:=(f[a-1,b]+(f[a-1,b-1]*(md(a)-b+1)mod 504)) mod 504;
 write(f2,f[2*n-1,k] mod 504);
 end;
 close(f1);close(f2);
end.