Повтор и рекурсия в структурах Visual Prolog

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

Написать программу, которая вычисляет среднее арифметическое чисел больших за 17 числового ряда от -5 до 35 с шагом 7. Результат решения получить в виде: / * элемент числового ряда а1 = -5 а2 = 2 ...... .. а n = .... Количество = ...; Сумма = ... ..; Cреднее арифметическое = .... * / Вот что набросал:

predicates
count(integer,integer)
clauses
count(N,S):-N>=35,!.
 
count(N,S):-write ('\r','\t',N),
    NewS=S+N,write ("\t\t\t",NewS),
    NewN = N+7,
    count(NewN,NewS).
    
goal
count (-5,0),
write ("\n\nКоличество= …; Сумма = …..; Cреднее арифметическое= ….*/").

Вот еще набросал:

predicates
count(integer,integer)
clauses
count(N,S):-N>=35,!.
 
count(N,S):-
    NewS=S+1,
    NewN = N+7,
    write ("a",NewS," = ",N,"\n"),
    count(NewN,NewS).
    
goal
count (-5,0),
write ("\nКоличество=;\tСумма =;\t\tCреднее арифметическое=\n\n").

Сам сделал:

predicates
count(integer,integer,integer,integer,integer)
clauses
count(N,S,X,Y,Z):-N>=35,!.
count(N,S,X,Y,Z):-
    NewS=S+N,
    NewZ=Z+1,
    NewN = N+7,
    NewX = S+N,
    NewY = NewX/NewZ,
    write (NewZ,"\t    ",N,"\t\t   ",NewX,"\t\t\t",NewY,"\n"),
    count(NewN,NewS,NewX,NewY,NewZ).
    
goal
write("№\tЭлемент\t\tСумма\t\tCреднее арифметическое\n"),count (-5,0,0,0,0).

Если кто нибудь напишет так как требовалось буду рад!

Решение задачи: «Повтор и рекурсия в структурах Visual Prolog»

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

                            count(_, A, S, K, S, K) :- 
    A >= 35,
    !.
count(N, A, S, K, SR, KR):-
    A > 17,
    !,
    NewN = N+1,
    NewA = A+7,
    NewS = S+A,
    NewK = K+1,
    write ("a", N, " = ", A, "\n"),
    count(NewN, NewA, NewS, NewK, SR, KR).
count(N, A, S, K, SR, KR):-
    NewN = N+1,
    NewA = A+7,
    count(NewN, NewA, S, K, SR, KR).
                        