记录编号	22452	评测结果	AAAAAAAAAA
题目名称	01进制数	最终得分	100
用户昵称	maxiem	是否通过	通过
代码语言	Pascal	运行时间	0.251 s
提交时间	2010-11-19 12:25:56	内存使用	3.92 MiB

program binacy;
var
  f:array [1..1000000] of longint;
  n,i:longint;
begin
  fillchar (f,sizeof(f),0);
  assign (input,'binacy.in');
  reset (input);
  readln (n);
  close (input);
  assign (output,'binacy.out');
  rewrite (output);
  f[1]:=1;f[2]:=2;
  for i:=3 to n do f[i]:=(f[i-1]+f[i-2]) mod 15746;
  writeln (f[n]);
  close (output);
end.