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

PROGRAM DF;
var
f1,f2:text;
a,b:array[1..1000]of integer;
i,n,j,k:integer;
begin
assign(f1,'chashu.in');
assign(f2,'chashu.out');
reset(f1);
rewrite(f2);
readln(f1,n);
a[1]:=8;b[1]:=1;k:=10;
for i:=2 to n do begin
  k:=k*10;
 a[i]:=(a[i-1]*9+b[i-1])mod 12345;
 b[i]:=(b[i-1]*9+a[i-1])mod 12345;
 end;
writeln(f2,a[n]);
close(f1);
close(f2);
 end.