# Vk1, 21.10.2001

y<-c(12,20,22,20,16,8,16,12,15,16,7,10,19,20,22,19,21,13,22,12,12,22,22,20,15,22,14,8,
22,22,17,8,4)

hist(y)
br<-seq(3.5,24.5,3)
hist(y,br)
#
# hist(y,br,freq=F)
mean(y); median(y)
sqrt(var(x))