我哪里弄错了吗？怎么这么大？
这个是全部输出出来，并且都按顺序保存在a里面了。

var
  a:array [1..3000] of int64;
  i:word; n2,n3,n5,m2,m3,m5:int64;
begin
  a[1]:=1; write(a[1]:20);
  n2:=1; n3:=1; n5:=1;
  n2:=1; n3:=1; n5:=1;
  m2:=2; m3:=3; m5:=5;
  for i:=2 to 3000 do begin
    if (m2<=m3) and (m2<=m5) then begin
      a[i]:=m2; inc(n2);
      if m3=m2 then begin inc(n3); m3:=a[n3]*3; end;
      if m5=m2 then begin inc(n5); m5:=a[n5]*5; end;
      m2:=a[n2]*2;
    end else if (m3<m2) and (m3<=m5) then begin
      a[i]:=m3; inc(n3);
      if m5=m3 then begin inc(n5); m5:=a[n5]*5; end;
      m3:=a[n3]*3;
    end else begin
      a[i]:=m5; inc(n5); m5:=a[n5]*5;
    end;
    write(a[i]:20);
  end;
end.