Помогите с задачей, найти 3-хзначные числа кратные 7 и...... Опции

[StudentTNGU]

Помогите решить задачку, плиз. Сижу парюсь с ней уже весь день... Перечитал лекции, книжки по паскалю - понять не могу как решить. Вот задачка:
Найти все трехзначные числа кратные 7 и сумма цифр которых тоже кратна 7.
Плж помогите...

[klem4]

(вопрос был про 3-значные)

Я еще и вторую часть задания не так сделал (сумма чисел = 7, а надо чтобы тоже кратна была) (поэтому цикл до 7 и сделал)

Глюки ....

В общем вот для трехзначных вариант если сам не переделал еще

for i := 1 to 9 do
   for j := 0 to 9 do
    for k := 0 to 9 do
     if ((i * 100 + j * 10 + k) mod 7 = 0) and ((i + j + k) mod 7 = 0) then
      writeln(i, j, k);