В однородном массиве действительных чисел найти сумму произведения положительных и отрицательных элементов — Basic(Бейсик)

INPUT” введите количество элементов массива”; n
DIM A(n)
DIM s,s2
s=0
s2=0
FOR i=1 TO n
INPUT ” введите элементы массива”; A(i)
IF a(i)>0 THEN
S=s*A(i)
ELSEIF a(i)<0 THEN
S2=s2*A(i)
END IF
NEXT i
PRINT ”сумма элементов + массива равна” s
PRINT ”сумма элементов - массива равна” s2
PRINT ”сумму произведения положительных и отрицательных элементов” s+s2