program tabfact
implicit none
integer:: j,i,prod

do j=1,10

! calcolo j fattoriale

   prod=1
   do i=1,j
      prod=prod*i
   enddo
   write(6,*)j,prod
enddo
end program tabfact