Something

CLS
DIM test(3)
'declare the variable/array
INPUT "Enter a number: ", number
i = 1
'setup a dummy variable
'this loop inserts data into the array
DO WHILE i <= 3
        test(i) = number
'        PRINT "The number is: "; test(i)
        i = i + 1
        INPUT "Enter a number: ", number
LOOP

i = 1
'this loop reads the data from the array
DO WHILE i <= 3
        PRINT test(i)
        i = i + 1
LOOP
END
'end of program