Linguagem algorítmica
#incluir
<biblioteca>
principal()
inicio
inteiro i, num, fat;
fat ← 1;
escreva(“digite um numero: “);
leia(num);
se (num = 0)
escreva(“o fatorial de”, num, “e’”,
fat);
senão
início
para(i=1; i<=num ; i← ! i+1)
fat = fat*i;
escreva(“o fatorial de”, num, “e’”,
fat);
fim
fim
<<Fechar