回帖：var
n,r,t:int64;
procedure m(a:longint);
var
i:longint;
begin
for i:=1 to a do
r:=r*n mod 1000003;
end;
procedure l(a:longint);
var
i:longint;
begin
for i:=1 to a do
t:=t*n mod 1000002;
end;
begin
read(n);
if n=2
then write(16)
else
if n