program medianum
implicit none
integer:: idat,ierr,somma,n

n=0
somma=0
read(5,*,iostat=ierr) idat
do while(ierr == 0)
   n=n+1
   somma=somma+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
else
   write(6,*)'Errore numero:', ierr
endif
end program medianum