var a,s,k,p:integer;
begin
k:=0;
p:=1;
s:=0;
while a<>100 do begin
readln(a);
if (a mod 2 = 0) then
k:=k+1;
if (a<0) then
s:=s+a;
if (a >=5) and (a <= 15) then
p:=p*a;
end;
writeln(k, ' ', s, ' ',p);
end.
var a,s,k,p:integer;
begin
k:=0;
p:=1;
s:=0;
begin
while a<>100 do begin
readln(a);
if (a mod 2 = 0) then
k:=k+1;
if (a<0) then
s:=s+a;
if (a >=5) and (a <= 15) then
p:=p*a;
end;
end;
writeln(k, ' ', s, ' ',p);
end.