Дан массив b размерности n. найти произведение положительных четных элементов массива.

Progra gt;
var b:array[1..10000] of integer;
n,i,p:linteger;
begin
read(n);
p:=1;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)and(b[i] mod 2=0)then p:=p*b[i];
end;
writeln(p);
end.

VB. 

Dim B() As Integer

        Randomize()
        Dim k As Integer
        Dim i As Integer
        Dim Summ as Long
        Summ=1
        i = InputBox("Введите N")
        ReDim A(i)
        For k = 0 To i
            B(k) = Rnd() * -1000 + 500
            If B(k) > 0 and B(k) mod 2 =0 then Summ=Summ*B(k)
        Next
MsgBox(Summ)