记录编号	71257	评测结果	AAAAAAAAAA
题目名称	整理牙刷	最终得分	100
用户昵称	gungnir	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2013-10-06 20:19:34	内存使用	0.55 MiB

var  n:longint;
     s:array[0..100000]of longint;

procedure try(i:longint);
var j:longint;
begin
s[1]:=0; s[2]:=1;
if i>=3 then
for j:=3 to i do
s[j]:=((j-1)mod 1206)*(s[j-1]+s[j-2])mod 1206;
end;

begin
assign(input,'put.in');reset(input);
assign(output,'put.out');rewrite(output);
readln(n);
if n<=1 then begin writeln('No Solution!'); halt; end;
try(n);
writeln(s[n]);
close(input);close(output);
end.