记录编号	135827	评测结果	AAAAAAAAAA
题目名称	01进制数	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.069 s
提交时间	2014-11-01 18:57:11	内存使用	3.98 MiB

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