integ(0,0,X):-!.
integ(1,X,-sin(X):-!.
integ(N,X,(1/N)*((N-1)*S2-cos(X)*(sin(X)^(N-1)))):-N2 is N-2, integ(N2,X,S2).

/* Poziva se sa: integ(N,Atom,Rezultat). */