3.20 Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o fatorial a números inteiros positivos e menores que 16.

algoritmo "3.20"
var
//Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o //fatorial a números inteiros positivos e menores que 16.

   OP:CARACTER
   FAT,I,N:INTEIRO
inicio
   ENQUANTO OP<>"S" FACA
      ESCREVAL("-----------------------------------------")
      ESCREVAL("DIGITE UM NUMERO PARA ACHAR O FATORIAL")
      ESCREVAL("----------------------------------------------")
      ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
      LEIA(N)
      FAT:=1
      SE ((N>=1) E (N<=16)) ENTAO
         PARA I:=1 ATE N FACA
            FAT:=FAT*I
         FIMPARA
         ESCREVAL("O VALOR DO FATORIAL DE ",N," É: ",FAT)
         ESCREVAL("--------------------------------------")
      SENAO
         ESCREVAL("-------------------------------------")
         ESCREVAL("VOCÊ DIGITOU UM NUMERO FORA DA FAIXA")
         ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
      FIMSE
      ESCREVAL("SE DESEJAR SAIR DIGITE S")
      LEIA(OP)
   FIMENQUANTO
   ESCREVAL("OBRIGADO POR USAR O PROGRAMA")
fimalgoritmo