#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