Решить в pascal abc на столе разбросано n монет различного достоинства(достоинство каждой монеты не известно). после того какодинаковые монеты разложили в кучки (в каждой кучке монет одного достоинства) на столе оказалось k кучек. сколько кучек?

Var
  a : array [1..10000] of boolean;
  n, i, k, d : integer;
begin
  read (n);
  k := 0;
  for i := 1 to n do
  begin
    read (d);
    if not a[d] then
    begin
      a[d] := true;
      k := k + 1;
    end;
  end;
  writeln (k);
end.