记录编号	75627	评测结果	AAAAAAAAAA
题目名称	整理牙刷	最终得分	100
用户昵称	钨铅	是否通过	通过
代码语言	Pascal	运行时间	0.046 s
提交时间	2013-10-28 15:50:17	内存使用	0.15 MiB

program put;
var n,ans:longint;
function cuo(k:longint):longint;
var i:longint;
begin
if k=1 then begin
            cuo:=0;
            exit;
            end;
if odd(k) then i:=-1 else i:=1;
cuo:=(k*cuo(k-1)+i)mod 1206;
end;
begin
assign(input,'put.in');
assign(output,'put.out');
reset(input);
rewrite(output);
read(n);
if n=1 then begin
            write('No Solution!');
            close(input);
            close(output);
            halt;
            end;
ans:=cuo(n);
write(ans);
close(input);
close(output);
end.