Exercicio 3.17

Algoritmo "Exercicio 3.17"
//3.17 Faça um programa que calcule o fatorial de um número
//inteiro fornecido pelo usuário. Ex.:
//5!=5.4.3.2.1=120
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
Var
  n,fat,i:inteiro
Inicio
   Escreval("Algoritmo para calcular o fatorial")
   Escreval("Digite o numero desejado")
   Leia(N)
   Fat:=1
   para i:=1 ate n faca
      fat:=fat*i
   fimpara
   Escreval("O fatorial é:.. ",fat)
Fimalgoritmo