20 CLEAR 1000:I=2:N=1:PRINT 1;SPC(2);"1=1"
30 IF NOT I<=1000 THEN 90
40 FOR K=1 TO 0 STEP 1:GOSUB 100
50 FOR T=1 TO LEN(V$) STEP 2
60 IF (MID$(V$,T,2)="1*" OR MID$(V$,T,2)="2*") OR (MID$(V$,T,2)="3*" OR MID$(V$,T,2)="5*") THEN H$="good" ELSE H$="not":T=LEN(V$)+1
70 NEXT T:IF H$="good" THEN PRINT I;SPC(2);MID$(STR$(N),2);"=";LEFT$(V$,LEN(V$)-1):I=I+1
80 N=N+1:K=(I<=1000):NEXT K
90 PRINT :PRINT "Выбор закончен":END
100 V$="":P=2:W=N
110 D=W/P:IF D=INT(D) THEN V$=V$+MID$(STR$(P),2)+"*":W=D:GOTO 110
120 P=P+1:IF W>=P THEN 110
130 RETURN