Pascal/Turbo Pascal - Como hago recursiva esta funcion?

Filtrado por el usuario: E. Moran
<<>>
Filtrado por el usuario 'E. Moran' (Eliminar fitro)
 
Vista: