Do While Loop দিয়ে গড় ও Standard Deviation নির্ণয়

program stdd
implicit none
real::x=0.,sumx=0.,sumx2=0.,x_bar,sd
integer::n=0
do
  write(*,*)'enter'
  read(*,*)x
  write(*,*)'entered',x
  if(x<0) exit
    n=n+1
    sumx=sumx+x
    sumx2=sumx2+x**2
    enddo
    if(n<2) then
      write(*,*)'put minimum three no.'
      else
        x_bar=sumx/real(n)
        sd=sqrt((real(n)*sumx2-sumx**2)/(real(n)*real(n-1)))
        write(*,*)'mean=',x_bar,'SD=',sd,'n=',n
        endif
        endprogram stdd