Código: Selecionar todos
programa CALCULA_FATORIAL
var
numero, fatorial, contador: inteiro;
inicio
numero ← 4;
fatorial ← 1;
PARA contador DE 1 ATÉ numero PASSO 1 FAÇA
fatorial <- fatorial * contador;
Escreva("O fatorial de ", numero, " é: ", fatorial);
Fim