Var

A:array[1..500]of integer;

I,k,kc:integer;

Begin

For i:=1 to 500 do

Read(a[i]);

For i:=1 to 500 do begin

If a[i]=0 then k:=k+1;

If (a[i]<>0)and(a[i] mod 2 = 0) then kc:=kc+1;

End;

Writeln('количество чётных чисел ',kc);

Writeln('количество нулей ',k);

End.