100 DIMA(100),B(100),C(100) 110 INPUT N 120 FOR I = 1 TO N 130 LET A(I) = I 140 NEXT I 150 FOR J = 1 TO N 160 INPUT B(J) 170 NEXT J 180 FOR L = 1 TON 190 FOR I = 1 TO N 200 IF B(A(I)) < B(A(I+1)) THEN 240 210 LET C(I) = A(I) 220 LET A(I) = A(I+1) 230 LET A(I+1) = C(I) 240 NEXT I 250 NEXT L 260 FOR P = 1 TO N 270 PRINT"B(P)";B(P);"B(A(P))";B(A(P)) 280 NEXT P 390 END