记录编号	2272	评测结果	AAAAAAAAAA
题目名称	查数	最终得分	100
用户昵称	francis	是否通过	通过
代码语言	Pascal	运行时间	0.038 s
提交时间	2008-09-17 20:39:43	内存使用	0.12 MiB

program chashu;
const
fin='chashu.in';
fou='chashu.out';
var
f:array[1..1000,0..1]of longint;
n,i,j:longint;
f1,f2:text;

procedure init;
begin
assign(f1,fin); assign(f2,fou);
reset(f1); rewrite(f2);
read(f1,n);
f[1,0]:=9;  f[1,1]:=1;
f[2,0]:=73; f[2,1]:=17;
end;

begin
init;
for i:=3 to n do
begin
 f[i,1]:=f[i-1,0] mod 12345;
 for j:=1 to 9 do
 f[i,1]:=(f[i,1]+f[i-1,1])mod 12345;
 f[i,0]:=f[i-1,1] mod 12345;
 for j:=1 to 9 do
 f[i,0]:=(f[i,0]+f[i-1,0])mod 12345;
end;
write(f2,f[n,0]);
close(f1); close(f2);
end.