Nếu có sai thì nói nhé.

==========================

program Hello;
uses crt;
var a,b:array[1..100000] of longint;
    d,i,max,n:longint;
begin
    readln(n);
    for i:= 1 to n do
        begin
            read(a[i]);
            if max < a[i] then max:=a[i];
            inc(b[a[i]]);
        end;
    for i:= 1 to max do
        d:=d+b[i] div i;
    writeln(d);
    
end.

var i,n,a,d:longword;
    dem:array[1..1000000] of longword;
    f1,f2:text;
begin
    assign(f1,'CLAN.INP');reset(f1);
    assign(f2,'CLAN.OUT');rewrite(f2);
    readln(f1,n);
    for i:=1 to n do
      begin
         read(f1,a);
         inc(dem[a]);
         if dem[a]=a then
            begin
                dem[a]:=0;
                inc(d);
            end;
      end;
    writeln(f2,d);
    close(f1);close(f2);
end.