Задачка в Pascal:

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

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