start
citeste n
p=1
i=1
repeta
{p=p*i
i=i+1}
cat timp i<=n
scrie p
sfarsit