var n,i,x,a,b:Longint;
cnt:array[0..9]of Longint;
begin
read(n);
for i:=1 to n do begin
read(x);
if x<3200 then begin
if cnt[x div 400]=0 then inc(a);
inc(cnt[x div 400]);
end else inc(b);
end;
if a=0 then writeln(1)else writeln(a);
writeln(a+b);
end;