Задача g6_1039: Виза (ИМ-2002 СамГУ)

Жители одного государства очень любят различные математические головоломки. Даже тот, кто желает получить въездную визу, должен решить задачу: отыскать ключевое слово. Условие задачи таково:
На листке написано несколько длинных чисел. Если сложить все цифры в каждом числе, получатся новые числа. Далее, следует сложить все цифры в каждом из вновь полученных чисел. Процесс следует продолжать до тех пор, пока в результате не останутся числа, меньшие 10. После этого все просто: числа от 0 до 9 - это номера букв в алфавите (в этом государстве алфавит состоит всего из десяти букв). Замена чисел буквами и дает ключевое слово.
Напишите программу, которая будет отыскивать ключевое слово.

Формат входного файла:

Первая строка - алфавит государства: десять букв расположенных по возрастанию порядковых номеров без пробелов.
Вторая строка - количество чисел (N <= 255)
Следующие N строк - собственно исходные числа (по одному на строке, в каждом не более 255 цифр).

Формат выходного файла:

Ключевое слово

Пример:

input.txt

АГЕИКЛМОРТ
4
8267
19929
54262
000000000000

output.txt

ЛИГА

Решение g6_1039:
Первый раз до конца прочитал условие, пока печатал :). Вообще наша команда всегда отличается быстрым стартом и завалом во второй части соревнований, однако это не помешало нам занять второе место в этом году :). Задача простая. Читаем в переменную string алфавит государства. Затем перед нами встает две задачи - посчитать сумму цифр в длинном и в коротком числе. Для длинного числа все просто - складывае в одну переменную val всех символов строки (длинное число удобно загнать в строку). Если получилось числе меньше 10 - то выведем соответствующую ей букву в output. Если получилось число большее 10, то его придется разделать в цикле while. Найдем сумму цифр числа (summ := summ + A mod 10; A := A div 10) и в случае если она больше 10, то присвоим числу значение суммы. При выводе символа надо помнить, что символу в строке занумерованы 1..10, а на выход будут подаваться числа 0..9, так что логично к выходному числу прибавлять 1...