var v:array[1..100] of integer;
        n,c:byte; x:integer;



 function valid (x:integer):boolean;
 var i:byte; ok:boolean;
 begin

  ok:=false;

  i:=1;

  while (i<=c) and (ok<>true) do
        begin
         if v[i]=x then ok:=true;
         inc(i);
        end;

  valid:=ok;

 end;



 procedure citire;
 var i:byte;
 begin

  readln(n);

  c:=0;

  for i:=1 to n do
        begin
         read(x);
         x:=x mod 23;                                    writeln(x);
         if valid(x)=false then begin inc(c); v[c]:=x; end;
        end;              for i:=1 to c do write(v[i]:4);

  writeln(c);

 end;


begin
 citire;
end.