SOLUÇÃO FATORIAL por GRASIELE CIRILO

algoritmo "Fatorial"

var
n,i,fatorial:inteiro
inicio
escreval("Digite o numero que deseja saber o fatorial:")
leia(n)
i<-1
fatorial<-1
para i de 1 ate n faca
fatorial<-fatorial*i
fimpara
escreva("O fatorial de",n," é:",fatorial)
fimalgoritmo