Prolog Get sum of all divisors of an integer

Question

I have this code:

sumOfDivisors(X) :- sum(X,1,0).

sum(X,Y,N) :- X=N.
sum(X,Y,N) :- Y