10 REM sortirowka
20 REM *****************
30 DIM T(100)
40 PRINT "N= ";N
50 INPUT N
60 FOR I=1 TO N
70 PRINT "T(";I;")= ";T(I)
80 INPUT T(I)
90 NEXT I
100 I=1
110 LPRINT "massiw uporqdo~en: "
120 LET P=I
130 LET J=P+1
140 IF T(P)<=T(J) GOTO 180
150 LET D=T(P)
160 LET T(P)=T(J)
170 LET T(J)=D
180 LET J=J+1           
190 IF J<=N GOTO 140
200 PRINT "X= ";T(P)
210 LPRINT "X= ";T(P)
220 LET P=P+1
230 IF P<=N-1 GOTO 130
240 PRINT "X= ";T(P)
250 LPRINT "X=";T(P)
260 END 
           