不懂

就是字符串操作＆指针使用嘛
我没有多少时间写 所以写的差请不要见怪
 空间上还有优化的余地

program mob;
var a:array[1..2002]of byte;
    i,l:integer;st:string;j,c:byte;
begin
 a[1]:=2;a[2]:=3;
 i:=1;l:=2;
 while l<2000 do begin
  c:=a[i]*a[i+1];
  str(c,st);
  for j:=1 to length(st) do
   a[l+j]:=ord(st[j])-48;
  inc(l,length(st));
  inc(i);
 end;
 writeln(a[1998],a[1999],a[2000]);
end.

OK解决了谢谢！！