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

! N fattoria 

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

do n=1,nmax

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

enddo

end