program lettura
implicit none
integer:: idat

! legge e scrive termina co 0

!write(0,*)'dammi dato'
read(5,*) idat
do while(idat .ne. 0)

   write(6,'(i5)')idat

!   write(0,*)'dammi dato'
   read(5,*) idat
enddo
end program lettura