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
