program mn_5-

var m:set of 0..9-

n,o,i:integer-

begin write(‘введите число:’)-

readln(n)-

m:=[0,1,2,3,4,5,6,7,8,9]-

while n&gt-0 do

begin o:=n mod 10-

n:=n div 10-

if (o in m) then m:=m-[o]

end-

writeln(‘цифры, которых нет в числе’)-

for i:=0 to 9 do

if i in m then write(i,’,’)-

readln-

end.