记录编号	33420	评测结果	AAAAAAAAAA
题目名称	整理牙刷	最终得分	100
用户昵称	11111111	是否通过	通过
代码语言	Pascal	运行时间	0.005 s
提交时间	2011-11-10 16:32:03	内存使用	38.26 MiB

program aa;
var
a,b,c,d,e,i,j,m,n,max,sum:longint;
f:array[1..10000000]of longint;
f1,f2:text;
begin
assign(f1,'put.in');
assign(f2,'put.out');
reset(f1);
rewrite(f2);
readln(f1,n);
if (n=1)or(n=0) then
writeln(f2,'No Solution!')
else
begin
f[1]:=0;
f[2]:=1;
for i:=3 to n do
f[i]:=(i-1)*(f[i-1]+f[i-2]) mod 1206;
writeln(f2,f[n]);
end;
close(f1);close(f2);
end.