Exemplo de Recursividade utilizando 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