suma(N,1):-N=<1.
suma(N,S):-N>1,N1 is N-1, suma(N1,S1), S is S1+N.

/* Poziva se sa: suma(Broj,Zbir).   */