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

Var i:integer; Begin Write('Числа, сумма цифр которого делится на 7, и само число делится на 7 '); for i:= 100 to 999  do if (((i mod 10 + i div 10 mod 10 + i div 100) mod 7) = 0) and ((i mod 7) = 0) then write(i,' '); End.