Написать программу на языке бейзик нахождения всех трехзначных чисел, у которых все цифры различны, а также которые кратны семи не только сами, но и сумма цифр этих чисел. помогите пожалуйста!

CLS n = 0 FOR i = 1 TO 9    FOR j = 0 TO 9       FOR k = 0 TO 9          c1 = i <> j AND i <> k AND j <> k          IF c1 THEN c1 = (i + j + k) MOD 7 = 0          IF c1 THEN c1 = (100 * i + 10 * j + k) MOD 7 = 0          IF c1 THEN             PRINT i; j; k             n = n + 1          END IF       NEXT k    NEXT j NEXT i IF n = 0 THEN PRINT "Нет решения" Тестовое решение:  3  2  9  3  9  2  5  1  8  5  8  1