program medianum
implicit none
integer:: ierr,n,i
real:: dato,somma,xmax,xmin,xmed
real,dimension(10)::x

n=0
somma=0
xmax=-1e36
xmin=1e36
read(5,*,iostat=ierr) dato
do while(ierr == 0)
   n=n+1

   x(n)= dato
!   write(6,*) 'leggo x(',n,')'
   somma=somma+dato
   if(dato > xmax) xmax=dato
   if(dato < xmin) xmin=dato
   read(5,*,iostat=ierr) dato
enddo
if (ierr < 0) then
   write(6,"('Ho letto ',i2,' numeri')")n
   write(6,*)' somma=',somma
   xmed=somma/n
   write(6,*)' media=',xmed
   write(6,*)' max=',xmax
   write(6,*)' min=',xmin
   somma=0
   do i=1,n
      somma=somma+ (x(i)-xmed)**2
   enddo
   write(6,*)'Varianza= ',somma/n

else
   write(6,*)'Errore numero:', ierr
endif
end program medianum