MAdEGE

var
a:array[1..20] of integer;
i,j,k,n,a1,n3,a2:integer;
begin
readln(n);
readln(a1);
n3:=0;
For i:=2 to n do begin
If (a1 mod 3 <>0) then inc(n3);

readln(a2);
If (a2 mod 3 <>0) then k:=k+n3;

a1:=a2;
j:=(n div 2)*(n-1);
end;

writeln(j-k);

end.