var
a, z, x: integer;
begin
z:=0;
x:=0;
read(a);
while a <> 0 do
begin
if (a mod 3 = 0) and (a mod 2 <> 0)
then
z := z + 1 ;
x:=x+1;
read(a);
end;
writeln(x,' ', z);
end.
// PascalABC.NET
begin
var (n, k) := (0, 0);
var a: integer;
repeat
a := ReadInteger;
if a <> 0 then
begin
n += 1;
if a.IsOdd and (a mod 3 = 0) then
k += 1
end
until a = 0;
Print(n, k)
end.
