Respuesta :

DIM Num AS INTEGER

CLS

INPUT "Enter number: ", Num

Num = ABS(Num)

FOR i = 1 TO Num
    FOR j = 1 TO Num
        IF i * j = Num THEN
            PRINT i
            PRINT ", "
            PRINT -1 * i
            PRINT ", "
        END IF
    NEXT j
NEXT i