Var a,i:integer; mn:set of 0..9;
begin
write(a = ); readln(a);
mn:=[];
while agt;0 do
 begin
 mn:=mn+[a mod 10];
 a:=a div 10;
 end;
writeln(В числе нет следующих цифр:);
for i:=0 to 9 do
 if not(i in mn) then write(i:2);
writeln;
end.

Пример:
a = 1356
В числе нет следующих цифр:
 0 2 4 7 8 9