x в 5 степени отнять х в 4 степени

Задачка в Pascal:

ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. (Циклы с условием)

Решение должно быть простым, потому что такие вещи, как массивы ещё не прошли. Скорее всего здесь будет использоваться while, div, mod.

Признаки рыночной, традиционной и командной экономик.