0 INPUT "число",TEST%
1 DIM A%(TEST%):I%=-1:CLS:PRINT "PLEASE WAIT..."
2 I%=I%+1
10 A%(I%)=I%
30 IF I%>=(TEST%-1) THEN GOTO 50
40 GOTO 2
50 S$=STR$(TEST%):CLS:PRINT "Создал "+S$+" переменных в массиве":SLEEP 3000:GOTO 0