Сложение чисел, заданных в массиве

CLS
INPUT "vvedite p"; p
INPUT "vvedite m,n"; m, n
IF m > n THEN q = m ELSE q = n
DIM k(q), l(q)
PRINT "vvedite 1 chislo"
FOR i = q - m + 1 TO q
    INPUT k(i)
NEXT
PRINT "vvedite 2 chislo"
FOR i = q - n + 1 TO q
    INPUT l(i)
NEXT
FOR i = q TO 1 STEP -1
    w = 0
    w = k(i) + l(i) + r
    IF w >= p THEN r = w \ p: w = w MOD p
    c$ = LTRIM$(STR$(w)) + c$
    IF i = 1 AND r <> 0 THEN c$ = LTRIM$(STR$(r)) + c$
NEXT
PRINT c$

CLS
INPUT "vvedite p"; p
INPUT "vvedite m,n"; m, n
IF m > n THEN q = m ELSE q = n
DIM k(q), l(q)
PRINT "vvedite 1 chislo"
FOR i = q - m + 1 TO q
    INPUT k(i)
NEXT
PRINT "vvedite 2 chislo"
FOR i = q - n + 1 TO q
    INPUT l(i)
NEXT
FOR i = q TO 1 STEP -1
    w = 0
    w = k(i) + l(i) + r
    IF w >= p THEN r = w \ p: w = w MOD p ELSE r=0
    c$ = LTRIM$(STR$(w)) + c$
    IF i = 1 AND r <> 0 THEN c$ = LTRIM$(STR$(r)) + c$
NEXT
PRINT c$

CLS
INPUT "vvedite a"; a$: a$ = LTRIM$(RTRIM$(a$)): m = LEN(a$)
INPUT "vvedite b"; b$: b$ = LTRIM$(RTRIM$(b$)): n = LEN(b$)
IF m > n THEN
q = m: b$ = STRING$(q - n, 48) + b$
ELSE
q = n: a$ = STRING$(q - m, 48) + a$
END IF
FOR i = q TO 1 STEP -1
    w = VAL(MID$(a$, i, 1)) + VAL(MID$(b$, i, 1)) + r
    IF w >= 10 THEN r = w \ 10: w = w MOD 10 ELSE r = 0
    c$ = LTRIM$(STR$(w)) + c$
    IF i = 1 AND r <> 0 THEN c$ = LTRIM$(STR$(r)) + c$
NEXT
PRINT c$

INPUT "vvedite a"; a$: m = LEN(a$)
INPUT "vvedite b"; b$: n = LEN(b$)
IF m > n THEN q = m ELSE q = n
FOR i = 1 TO q
    w = VAL(MID$(a$, m - i + 1, 1)) + VAL(MID$(b$, n - i + 1, 1)) + r
    IF w >= 10 THEN r = w \ 10: w = w MOD 10 ELSE r = 0
    c$ = LTRIM$(STR$(w)) + c$
    IF i = q AND r <> 0 THEN c$ = LTRIM$(STR$(r)) + c$
NEXT
PRINT c$