простая задача на паскаль

[werus]

помогите с задачкой..она простая но я чет не пойму что там надо.....

..найти и вывести все 3-х значные числа кратные 7-ми сума цифр которых тоже кратна 7-ми....

[Greblin]

program pr1;

var i: integer;

function digitSum(a: integer): integer;
var s: integer;
begin
s := 0;
while a > 9 do
  begin
  s := s + a mod 10;
  a := a div 10;
  end;
s := s + a;
digitSum := s;
end;


begin
i := 105;
while i < 1000 do
  begin
  if digitSum(i) mod 7 = 0 then write(i,' ');
  i := i + 7;
  end;
readln;
end.