может ли мяч во время полёта изменить направление движения на противоположное,ни с чем не столкнувшись?

Задачка в Pascal:

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

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