Составить массив из 7 чисел, произведение чётных и сумму нечётных виде программы ну поняли короче

Cls
dim a(7)
for i=1 to 7
  input a(i)
next i
z=1:s=0
for i=1 to 7
if a(i) mod 2=0 then
  z=z*a(i)
else
  s=s+a(i)
end if
print s,z