Question

Вести целое число и определить, верно ли, что в его записи есть две одинаковые цифры, НЕ обязательно стоящие рядом.
Пример: Введите целое число
1234
Нет одинаковых цифр
Введите целое число
1242
Есть одинаковые цифры.
Язык программирования КУМИР.
Я пробовала вот сделать программу, но она определяет не верно:
алг
нач
цел a,b,c,d,e
вывод "Введите целое число", нс
ввод a
c:=0
e:=0
нц пока a>0 и e=0
b:=mod(a,10)
d:=1
нц пока d<=c и e=0
если d=b то e:=1
иначе d:=d+1
все
кц
если e=0 то
c:=c+1
c:=b
a:=div(a,10)
все
кц
если e=0 то вывод "Нет одинаковых цифр"
иначе вывод "Есть одинаковые цифры"
все
кон

Очень прошу, чтобы вы помогли мне самостоятельно (а не содрали с инета, как делают многие на знаниях)