1)
var i,p,n: integer;
begin
p:=1;
for i:=1 to 5 do begin
readln(n);
if(n<0) then p:=p*n;
end;
write(p);
end.
2)
var n,k,x,i: integer;
begin
readln(n);
k:=0;
for i:=1 to n do begin
readln(x);
if x mod 3=0 then k:=k+1;
end;
write(k);
end.
3)
var n,s,x,i: integer;
begin
readln(n);
s:=0;
for i:=1 to n do begin
readln(x);
if x mod 7=0 then s:=s+x;
end;
write(s);
end.
4)
var n,k,x,i: integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(x);
if(x mod 2=0) and (x<0) then k:=k+1;
end;
write(k);
end.
