var a:array[1..1000]of integer;

x,n,j,i:integer;

procedure swap(x1,x2:integer);

var t:integer;

begin

t:=x1; x1:=x2; x2:=t;

end;

begin

readln(n);

readln(a[x]);

for i:=1 to n-1 do

for x:=1 to n-i do

if a[x]>a[x+1] then swap(a[x],a[x+1]);

begin

repeat

dec(n);

until a[x]<>a[x+1];

writeln(n);

begin

for i:=1 to n do

write(a[x],'');

readln;

end;

end;

end.