**TI89**mainRrandom ¥Z²() Prgm ClrIO Disp "number of subjects?" Input n Disp "choose how many?" Input m DelVar list3 seq(j,j,1,n)list1 For i,1,m DelVar list2 ceiling(rand()*(n-i+1))a list1[a]list3[i] 1k While k