信息编程题目对于给出的两个自然数N,M（1

信息编程题目
对于给出的两个自然数N,M（1

Pascal 语言的
for i:=n to m do
begin
j:=i;
h:=0;
while j0 do
begin
h:=h+j mod 10;
j:=j div 10;
end;
if h mod 7=0 then write(i:5);
end;
可能有点小错