Ввести натуральное число и определить, какие цифры встречаются несколько раз. Язык: Pascal

program zz1;

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

begin

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

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

s:=0;

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

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

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

while s>0 do / / организуем цикл, пока в числе есть цифры

begin

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

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

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

end;

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

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

end;

end.