pascal 各位数字之和等于7的倍数

program as (input,output0;
var f,d,g,s,c,a,b,x,y;integer;
c:string[5];
e:array[1..10000]of integer;
begin
x:=1;
s:=1;
y:=9;
for c:=1 to 4 do
begin
for a:=x to y do
begin
c:=a;
f:=0
for d:=1 to c do
begin
val(c[d],g);
f:=f+g;
end;
if f mod 7 =o
then
e[s]:=f;
f:=0;
s:=s+1;
end;
x:=x*10;
y:=x*10-1;
end;
for a:=1 to s do
writeln(e[s]);
end.

var i,j,a,b,c,k:integer;
begin
k:=0;
for i:=1 to 1000 do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
if (a+b+c)mod 7=0
then begin
write(i,' ');
inc(k);
if k mod 10=0 then writeln;
end;
end;
writeln;
end.

其中
inc(k);
if k mod 10=0 then writeln;
是为了输出美观。

var i,a,b,c,d:integer;
begin
for i:=1 to 9999 do
begin