记录编号	7480	评测结果	WWWWWWWAWW
题目名称	地铁重组	最终得分	10
用户昵称	EnAsn	是否通过	未通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2008-11-10 15:00:36	内存使用	0.11 MiB

program ex;
type
 ss=array[1..1200]of integer;
var
 a:ss;
 n,p:integer;
 f1,f2:text;
 max,t:longint;
procedure init;
 begin
  assign(f1,'subway.in');
  assign(f2,'subway.out');
  reset(f1);
  rewrite(f2);
  readln(f1,n,p);
  close(f1);
 end;
procedure main;
 var
  i:integer;
 begin
  for i:=1 to n-1 do
   max:=(max*i)mod 4096;
  max:=(max*p-n*(n-1-p))mod 4096;
  writeln(f2,max);
 end;
begin
 init;
 if p=1 then writeln(f2,'1')
        else main;
 close(f2);
end.