program fakulte
!Avtor: Klasinc Danilo
integer n,fakulteta
print*,'vpisi stevilo'
read*,n
do while(n.le.0)
 print*,'ni pravo'
 read*,n
enddo
print*,'fakulteta',n,'=',fakulteta(n)
end
integer function fakulteta (n)
integer n,i,f
f=1
do i=1,n
f=f*i

enddo
fakulteta=f
return
end