Вывод результата определённое количество раз - Prolog

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

Есть следующий код:

domains
x=integer
i=integer
k=integer
predicates
search(x,i,k)
rez
clauses
rez:-
write("Distance: "),readint(X),
write("Kol-vo points: "),
readint(I),K=0,search(X,I,K).
search(A,C,K):-B=A*1.618,write("Point: ",B,"\n"),
K=K+1,
K<=C,!,search(A,C,K).

Вводится некоторое число (расстояние) и количество поинтов (сколько точек нужно найти). Далее идёт умножение и вывод результата для каждой точки. Но как сделать вывод для всех поинтов? У меня выводится только значение для первой точки. Пыталась сделать что-то типа счётчика (переменная К), после каждого умножения прибавляла к К единицу, и если К меньше количества поинтов, то закончить вывод, но чёт не работает... Подскажите, пожалуйста!

Решение задачи: «Вывод результата определённое количество раз»

textual
                            Листинг программы 
                        
                            K=K+1,