Type
 St=Set of Byte;
Var
 n,i:Byte;
 x,k:LongInt;
 S,S1:St;

Procedure Figur(V:LongInt; Sf_in:St; var Sf_out:St);
var
 fig:Byte;
 Sf:St;
begin
 Sf:=Sf_in;
 repeat
  fig:=V mod 10;
  If Not(fig in Sf) then Sf:=Sf+[fig];
  V:=V div 10;
 until V=0;
 Sf_out:=Sf;
end;

Begin
 S:=[];
 S1:=[];
 Write('n = ');
 Readln(n);
 Write('k = ');
 Readln(k);
 Writeln('Enter ',n,' numbers:');
 For i:=1 to n do
  begin
   Write(i:3,'   ');
   Readln(x);
   If (x mod k)=0 then Figur(x,S,S) else Figur(x,S1,S1);
  end;
 For i:=0 to 9 do
  If Not(i in S) and (i in S1) then write(i:2);
 Readln
End.