TRONGXE Pascal

var dem: array[10102010.. 10109999] of longint;
    n,s,x: longint;

procedure nhap_va_dem;
var i:longint;
begin
    readln(n);
    for i:=1 to n do
       begin
           readln(x);
           inc(dem[x]);
       end;
end;

procedure giai;
var i:longint;
begin
    s:=0;
    for i:= 10102010 to 10109999 do
       begin
           if dem[i]>0 then
              if dem[i]<=5 then 
                  s:=s+100
              else 
                  s:=s+100 + (dem[i]-5);
       end;
    writeln(s);
end;

begin
    assign(input, 'trongxe.inp');     reset(input);
    assign(output, 'trongxe.out');     rewrite(output);
    nhap_va_dem;
    giai;
end.