/TROXE - Trông xe (OLP 2010)

              var n,i,d:longint;
        dem:array[10102010..10109999] of longint;
        a,b:array[0..1000000] of longint;
        kq:int64;
    begin
    readln(n);
    for i:=1 to n do
    begin
    readln(a[i]);
    inc(dem[a[i]]);
    end;
    for i:=10102010 to 10109999 do
    if dem[i]>0 then
    begin
    inc(d);
    b[d]:=i;
    end;
    kq:=100*d;
    for i:=1 to d do
    if dem[b[i]]>5 then kq:=kq+dem[b[i]]-5;
    write(kq);
    end.