program n_1;
var n, i, m, s: integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(m);
if m mod 2 = 0 then s:=s+1;
end;
writeln(s);
end.
1 - 3
2 - 56
3 - 8
4 - 1
5 -
1? - х=53
2? - х
3? - i
var
a:string;
n,k,i:integer;
readln(n);
readln(a);
case a[1] of
'T':k:=k+4;
'C':k:=k+6;
'O':k:=k+8;
'D':k:=k+12;
'I':k:=k+20;
writeln(k);