1000以内的21的整数倍的数存入一维数组中的程序

var
a:array[1..10000]of integer;
i,j:integer;
begin
j:=21; i:=1; a[i]:=21;
while j<=1000 do
begin
inc(i);
j:=j+21;
a[i]:=j;
end;
for j:=1 to i do write(a[j]，‘ ’);
end.

program df;
var a:array[1..100]of integer;
i,j:integer;
begin
j:=1;
for i:=1 to 1000 do
if i mod 21=0 then begin
a[j]:=i;
j:=j+1;
end;
end.
只保存不输出.