program nfattoriale
implicit none
integer(kind=8) :: n,i,nfat

write(6,*)'dammi un numero e ti dirņ il suo fattoriale'
read(5,*)n
nfat=1

do i =1,n
   nfat=nfat*i
enddo

write(6,*)'n! č',nfat
end