uses crt;
var i,n,t,d:longint; a:array[1..100000]of longint;
begin
clrscr;
write('n (n<=100)=');readln(n);
for i:=1 to n Do
begin
write('a[',i,']=');readln(A[i]);
if a[i] mod 2=0 then begin inc(d); inc(t,a[i]); end;
end;
writeln('A.',d);
writeln('B.',t);
readln
end.