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>-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.