program stats_1
implicit none
integer::n=0
real::std_dev=0.
real::sum_x=0.
real::sum_x2=0.
real::x=0.
real::x_bar=0.
do
print *,'Enter number:'
read *,x
print *,'The number is',x
if(x<0)exit
n=n+1
sum_x=sum_x+x
sum_x2=sum_x2+x**2
end do
x_bar=sum_x/real(n)
std_dev=sqrt((real(n)*sum_x2-sum_x**2)/(real(n)*real(n-1)))
print *,'The mean is:',x_bar
print *,'The standard deviation is:',std_dev
print *,'The number of data points is:',n
end program

cHJvZ3JhbSBzdGF0c18xCmltcGxpY2l0IG5vbmUKaW50ZWdlcjo6bj0wCnJlYWw6OnN0ZF9kZXY9MC4KcmVhbDo6c3VtX3g9MC4KcmVhbDo6c3VtX3gyPTAuCnJlYWw6Ong9MC4KcmVhbDo6eF9iYXI9MC4KZG8KcHJpbnQgKiwnRW50ZXIgbnVtYmVyOicKcmVhZCAqLHgKcHJpbnQgKiwnVGhlIG51bWJlciBpcycseAppZih4PDApZXhpdApuPW4rMQpzdW1feD1zdW1feCt4CnN1bV94Mj1zdW1feDIreCoqMgplbmQgZG8KeF9iYXI9c3VtX3gvcmVhbChuKQpzdGRfZGV2PXNxcnQoKHJlYWwobikqc3VtX3gyLXN1bV94KioyKS8ocmVhbChuKSpyZWFsKG4tMSkpKQpwcmludCAqLCdUaGUgbWVhbiBpczonLHhfYmFyCnByaW50ICosJ1RoZSBzdGFuZGFyZCBkZXZpYXRpb24gaXM6JyxzdGRfZGV2CnByaW50ICosJ1RoZSBudW1iZXIgb2YgZGF0YSBwb2ludHMgaXM6JyxuCmVuZCBwcm9ncmFt

NAo2IAoyCjEKLTE=

4
6 
2
1
-1