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

CLSn = 0FOR 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 jNEXT iIF n = 0 THEN PRINT "Нет решения"Тестовое решение: 3  2  9 3  9  2 5  1  8 5  8  1