Цифры, встречающиеся несколько раз

[Macsimus]

Ввести натуральное число и определить, какие цифры встречаются несколько раз. Сделать с помощь rapeat и until
Пример:​
Введите число >= 0:
2323
Повторяются: 2, 3

Пример:
Введите число >= 0:​
1234
Нет повторов.​

[Stilet]

Сможешь написать цикл получения цифры из числа?

[Dvoishnik]

var 
i,
chis: integer;
s:string;
s:=IntToStr(Chis);
for i:=1 to Lenght(s) do 
Begin
chis:=StrToInt(s); 
.............

в Делфи так можно а в паскале вроде функция Val есть для перевода из string в integer, а в обратном направлении Str