Здравствуйте помогите решить задачку на qbasic.

DIM X(1 TO 15) AS INTEGER
DIM P1 AS DOUBLE, P2 AS DOUBLE
DIM i AS INTEGER
CLS
RANDOMIZE TIMER
P1 = 0
P2 = 0
PRINT "Дан массив: "
FOR i = 1 TO 15
X(i) = INT(RND * 21) - 10
PRINT USING "####"; X(i);
IF X(i) > 0 THEN P1 = (P1 - (P1 = 0)) * X(i)
IF X(i) < 0 THEN P2 = (P2 - (P2 = 0)) * X(i)
NEXT
PRINT
PRINT USING "Произведение положительных: ###############"; P1
PRINT USING "Произведение отрицательных: ###############"; P2
IF P1 = 0 THEN
PRINT "Положительных элементов нет"
ELSEIF P2 = 0 THEN
PRINT "Отрицательных элементов нет"
ELSE
PRINT "По абсолютной величине ";
IF P1 = ABS(P2) THEN
PRINT "произведения положительных и отрицательных равны"
ELSEIF P1 > ABS(P2) THEN
PRINT "больше произведение положительных элементов"
ELSE
PRINT "больше произведение отрицательных элементов"
END IF
END IF
END

Забыл я кубейсик напрочь) не помню операторы и про массивы заблы, ну если поможет:
циклом заполняешь массив:
for i=1 to 15
(вызов массива с переменной i не помню обозначение) =input()
или прям в скобках указываешь, в кб по-моему все равно
next
далее таким же циклом fot j заполняешь второй массив

..блин, дальше вычисляешь абсолютную величину) и значение можно присвоить соответствующим переменным ну например Pa1 и Pa2

if Pa1>Pa2 then print "P1>P2":end else if Pa1

чтото не видать задачки

бред какой то! сначала говоришь про массив Xi а потом резко переходишь на массивы Р1 и Р2. Поясни. Решу