记录编号	33391	评测结果	AAAAAAAAAA
题目名称	整理牙刷	最终得分	100
用户昵称	lizhe	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2011-11-10 15:13:02	内存使用	0.12 MiB

program put;
const
  nn=1206;
var
  i,n,a,b,c:longint;
procedure init;
begin
  assign(input,'put.in');
  reset(input);
  assign(output,'put.out');
  rewrite(output);
  read(n)
end;

procedure panduan;
begin
  if n=1 then
  begin
    writeln('No Solution!');
    close(input);
    close(output);
    halt
  end
end;

procedure main;
begin
  a:=0;
  b:=1;
  for i:=3 to n do
  begin
    c:=((i-1)*(a+b)) mod nn;
    a:=b;
    b:=c
  end;
  writeln(b);
  close(input);
  close(output)
end;

begin
  init;
  panduan;
  main
end.