Найти количество всевозможных шестизначных счастливых билетов, удовлетворяющих ограничениям - PascalABC.NET

Формулировка задачи:

1) Найти количество всевозможных шестизначных счастливых билетов, удовлетворяющих ограничениям(потребуется 6 циклов, счетчик каждый раз будет перебирать варианты только одной цифры), числа должны содержать только одну цифру 2.

Решение задачи: «Найти количество всевозможных шестизначных счастливых билетов, удовлетворяющих ограничениям»

Листинг программы

begin
  Writeln('Число комбинаций = ', (Power(ReadString('Введите допустимые символы в строку через пробел: ').Split(' ').Length, ReadInteger('Введите количество знаков: '))));
end.

Объяснение кода листинга программы

Ввод допустимых символов и количества знаков
Разбиение строки допустимых символов на массив символов
Вычисление количества комбинаций (перестановок) по формуле n!/(n-k)!, где n - количество допустимых символов, k - количество знаков
Вывод результата на экран