program ASK;
var
i,j,p,m,n:longint;
begin
p:=1989;
m:=p mod 1000;
for i:=2 to 1000 do
begin
m:=m*p mod 1000;
n:=1;
for j:=1 to i-1 do
begin
n:=n*p mod 1000;
if m=n then
begin
writeln(i,' ',j);
halt;
end;
end;
end;
readln
end.
为什么它会一闪而过？溢出了吗？这程序有问题吗？

请问，这题能具体解释下吗，我看不懂，为什么M;=:=m*p mod 1000,什么意思，i:=1 to 1000 又是什么意思？谢谢了