a<- c(159,165,183,163,171,154,165,173,182,157,166,169,169,161,153,169,178,154,170,165,155,160,162,163,148,175,170,155,157,157,172,158,165,163,169)
n<- length(a)
jum=0
for (i in 1:n) {for (j in 1:n) {for(k in 1:n) {for (l in 1:n){for (m in 1:n) {jum=jum+1; print(c(a[i],a[j],a[k],a[l],a[m]))}}}}}
jum