entero función factorial(E entero:n)
var
entero: i,f
//advertencia, segun el resultado, f puede ser real
inicio
f ← 1
desde i ← 1 hasta n hacer
f ← f * i fin_desde
devolver (f)
fin_función
y el algoritmo que contiene un subprograma de cálculo del factorial de un número y una llamada al mismo:
algoritmo función_factorial
var entero: x, y, numero
inicio
escribir ('Deme un numero entero y positivo')
leer(numero)
x ← factorial(numero)
y ← factorial(5) escribir(x, y)
fin