implicit none
integer(kind=8):: i,n,prodotto

! N fattoria 

write(6,*)'dammi N positivo'
read(5,*) n

prodotto=1
do i=1,n
   prodotto=prodotto*i   
   write(6,*)i,prodotto

enddo
end