implicit none
integer:: i,n
real(kind=8):: 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