var 
number:Real;
nom,kol,sc,celoe:Longint;
    
Begin
    readln(nom);
    kol:=0;
    for sc:=1 to nom do 
    begin
        read(number);
        celoe := trunc(number);
        if(celoe mod 4 <> 0) then
            kol:=kol+1;
    end;
    writeln(kol);
end.