Si definisce coefficiente binomiale di n e k (nell'ipotesi che 0<=k<=n) nel seguente modo:

(n, k)=1 per k=0 oppure n=k(n, k)=(n-1, k)+(n-1, k-1) altrimenti
oppure
(n, k)=n!/[(n-k)!*k!]
oppure
(n, k)=n*(n-1)*...*(n-k+1)/[k*(k-1)*...*1]
Dare sia una soluzione iterativa che una ricorsiva.
Analizzare il comportamento delle due procedure (anche con esempi di esecuzione…) 
Procedure PROC1;Var C: Char;Begin C:=ReadKey; If(C <> ‘q’) then Begin Write(C); PROC1; End;End;
Procedure PROC2;Var C: Char;Begin C:=ReadKey; If(C <> ‘q’) then Begin PROC2; Write(C); End;End;