program lettura
implicit none
integer:: idat

! legge e scrive termina co 0

idat=1
do while(idat .ne. 0)
   write(0,*)'dammi dato'
   read(5,*) idat
   write(6,'(i5)')idat

enddo
end program lettura