Пожалуйста решите задачу, срочно, очень срочно. (решить нужно её на Turbo Pascal).Зарание спасибо.

(решить нужно её на Turbo Pascal).Зарание спасибо.

«Игра» .
Третьеклассники Дима и Олег любят разные игры с числами. Недавно Олег придумал новую игру. Берется набор из N чисел. Все числа из диапазона от 1 до 9. После этого игроки по очереди заменяют все числа одного достоинства на 0. Выигрывает игрок, после хода которого, все числа в наборе равняются 0.
Дима попытался написать программу, которая определяет победителя по исходному набору. Но пыта в программировании Дима не имеет, поэтому обратился за помощью к Вам.
Требуется написать программу, которая по исходному набор чисел определяет победителя.