В однородном массиве действительных чисел A[12]. Найти сумму произведения положительных и отрицательных элементов- PureBasic(Бейсик)

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