const n=10;
var a:array[1..n]of integer;
i,j,k:integer;
begin
 writeln;
 for i:=1 to n do
 begin
  a[i]:=random(5);
  write(a[i]:3);
 end;
 writeln;
 for i:=1 to n-1 do
 for j:=i+1 to n do
 if a[i]=a[j] then a[j]:=-1;
 j:=0;
 for i:=1 to n do
 if a[i]>=0 then
 begin
  write(a[i]:3);
  inc(j);
 end;
 writeln('Count:=':10,j);
end.