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.