循环结构1

求所有三位数中，它们各位数字之和能被7整除的这些三位数之和是多少？要求首先打印出所有满足条件的三位数，然后换行再打印输出它们的和！（参考答案：三位数个数有126个，总和等于69237）

var
  i,j,k:longint;
begin
  k:=0;
  for i:=100 to 999 do
    begin
      j:=(i mod 10)+(i div 10 mod 10)+(i div 100);
      if j mod 7=0 then
        begin
          write(' ',i,' ');
          k:=k+i;
        end;
    end;
  writeln(k);
  readln
end.