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   
enddo
write(6,*)'prodotto=',prodotto
end