Составить схему вычислительного процесса и написать её на Basic: Есть массив Xi, i=1, 2, …,15. Найти произведения положительных и отрицательных элементов массива P1 и P2. Определить,что больше по абсолютной величине P1 или P2.- QBasic(Бейсик)

CLS
DIM x(15)
RANDOMIZE TIMER
FOR i = 1 TO 15
    x(i) = INT(RND * 11) - 5
NEXT
PRINT "massiv"
FOR i = 1 TO 15
    PRINT x(i);
NEXT
PRINT
p1 = 1
p2 = 2
FOR i = 1 TO 15
    IF x(i) > 0 THEN p1 = p1 * x(i): f1 = 1
    IF x(i) < 0 THEN p2 = p2 * x(i): f2 = 1
NEXT
IF f1 = 0 THEN p1 = 0
IF f2 = 0 THEN p2 = 0
PRINT "proizvedenie polojitelnyh="; p1
PRINT "proizvedenie otricatelnyh="; p2
IF p1 > ABS(p2) THEN PRINT "proizvedenie polojitelnyh bolshe" ELSE IF ABS(p1) < ABS(p2) THEN PRINT "proizvedenie otricatelnyh bolshe " ELSE PRINT " odinakovo"