Даны вещественные массивы A(7), B(8), C(5). Составить программу с использованием подпрограммы для вычисления суммы и количества положительных и отрицательных элементов этих массивов — QBasic(Бейсик)

DECLARE SUB proced (e() AS SINGLE, n AS INTEGER)
CLS
DIM a(7) AS SINGLE
DIM b(8) AS SINGLE
DIM c(5) AS SINGLE
DIM i AS INTEGER
PRINT "vvedite elementi massiva a(7)"
FOR i = 1 TO 7
    INPUT a(i)
NEXT i
PRINT "vvedite elementi massiva b(8)"
FOR i = 1 TO 8
    INPUT b(i)
NEXT i
PRINT "vvedite elementi massiva c(5)"
FOR i = 1 TO 5
    INPUT c(i)
NEXT i
DIM SHARED q$
q$ = "a(7)"
CALL proced(a(), 7)
q$ = "b(8)"
CALL proced(b(), 8)
q$ = "c(5)"
CALL proced(c(), 5)

SUB proced (e() AS SINGLE, n AS INTEGER)

k1 = 0: k2 = 0: s1 = 0: s2 = 0
FOR i = 1 TO n
    IF e(i) > 0 THEN k1 = k1 + 1: s1 = s1 + e(i)
    IF e(i) < 0 THEN k2 = k2 + 1: s2 = s2 + e(i)
NEXT i
PRINT "kolvo polozhit elementov massiva "; q$; "="; k1
PRINT "Summa polozhit elementov massiva "; q$; "="; s1
PRINT "kolvo otric elementov massiva "; q$; "="; k2
PRINT "kolvo otric elementov massiva "; q$; "="; s2

END SUB