Ввести натуральное число и определить, какие цифры встречаются несколько раз. С помощью repeat until

program zz1;

var s, n, k, k1, p:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число ');

read (n); / / вводим с клавиатуры число

s:=0;

repeat / / организуем цикл, пока в числе есть цифры

k:=n mod 10; / /получаем последнюю цифру

s:=n; / / запоминаем n

repeat / / организуем цикл, пока в числе есть цифры

k1:=s mod 10; / / получаем последнюю цифру

s:=s div 10; / / отбрасываем ее

if k = k1 then p:=p+1;

until s=0;

if p>1 then write (k,' '); p:=0; / / выводим ответ

n:=n div 10; / /отбрасываем ее

until n=0;

end.