program medianum
implicit none
integer:: ierr,n
real:: idat,somma,xmax,xmin

n=0
somma=0
xmax=-1e36
xmin=1e36
read(5,*,iostat=ierr) idat
do while(ierr == 0)
   n=n+1
   somma=somma+idat
   if(idat > xmax) xmax=idat
   if(idat < xmin) xmin=idat
   read(5,*,iostat=ierr) idat
enddo
if (ierr < 0) then
   write(6,*)'Ho letto ',n,' numeri'
   write(6,"('Ho letto ',i2,' numeri')")n
   write(6,*)' somma=',somma
   write(6,*)' media=',somma/n
   write(6,*)' max=',xmax
   write(6,*)' min=',xmin
else
   write(6,*)'Errore numero:', ierr
endif
end program medianum