Сумма цифр трехзначного числа кратна 7, само число так же делится на 7. Найти все такие числа (в Паскале)

Предыдущий
вопрос Следующий
вопрос

program FindNumbers;

var
i, num, sum, digit1, digit2, digit3: integer;

begin
for i := 102 to 987 do
begin
digit1 := i div 100;
digit2 := (i mod 100) div 10;
digit3 := i mod 10;

end;
end.