Помогите решить задачу по информатике, пожалуйста!

Нужно написать вот такую программку:
"Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры.
Пример:
"Введите целое число:
1234
Нет. "

или

"Введите целое число:
1224
Да. "

Программа пишется на паскале.

Turbo pascal.