a <- c(1004, 19, 20, 19, 20, 100, 20, 21, 21, 24)
sort(a)
print(a)
median(a)
mean(a)