用pascal输出1-999中能被三整除,且至少有一位数字是5的数.这我会.可是一行输出10个,场宽为4怎么办?

for i:=1 to 总数量 do begin
write(a[i]:4);
if i mod 10=0 then writeln;
end;
再问： 总数量是符合要求的数的数量吗？
再答： 是的，把符合的数都存放在一个数组中
再问： 那a是什么数据类型？你能把整个问题的程序给我吗？
再答： 其实也可以不用数组。。。。。。 var i,j,t:longint; s:string; begin for i:=1 to 999 do begin str(i,s); if ((i mod 3=0) and ((s[1]='5') or (s[2]='5') or (s[3]='5'))) then begin t:=t+1; write(i:4); if t mod 10=0 then writeln; end; end; end.