Пролог-Д, Сумма чисел ряда, ошибка - Prolog

Формулировка задачи:

Помогите, пжл, с задачей нахождение суммы чисел натурального ряда, нашел в интернете, но компилятор в IDE пишет что решений нет. Сумма(0,S,S); %рекурсивный вызов процедуры поиска суммы пока N>0 Сумма(N,P,S)<-СЛОЖЕНИЕ(N,P,L),СЛОЖЕНИЕ(M,1,N),Сумма(M,L,S),!; %пример вызова предиката ? Сумма(10,S); если вдруг кому нужен компилятор то вот. https://drive.google.com/open?id=1fUWGKdWL0nDmhILid9B9nF9EQiKq5qCB

Если, добавить 0 в вызове функции то программа работает, но вдруг преподавателю не понравится.( что тут нужно исправить?

Решение задачи: «Пролог-Д, Сумма чисел ряда, ошибка»

Листинг программы

Сумма(N,S)<-Сумма(N,0,S);

Объяснение кода листинга программы

Сумма(N,S)<-Сумма(N,0,S) - это определение рекурсивной функции для вычисления суммы чисел ряда
N - это переменная, которая представляет собой номер числа в ряду (счет начинается с 1)
S - это переменная, которая представляет собой сумму чисел ряда до текущего числа
0 - это начальное значение суммы, так как для пустого ряда сумма равна 0