Fatorar

algoritmo "fatorar"
var
   num: vetor[1..15] de inteiro
   resultados: vetor[1..15]de inteiro
   i,j,res:inteiro

inicio
   para i de 1 ate 15 faca
      leia (num[i])
   fimpara
   para i de 1 ate 15 faca
      res <- 1
      para j de 1 ate num[i] faca
      res <- res * j
   fimpara
   resultados[i] <- res
fimpara
limpatela
escreval ("-----Resultado-----")
para i de 1 ate 15 faca
   escreval (num[i],"! =", resultados[i])
fimpara
fimalgoritmo