Задача такова:
Вводятся Н чисел, вводится число К. Сравнить числа с данным числом К по модулю, если число больше то вывести его. Подсчитать кол-во таких чисел. 
Код: 

domains
 K,A = real 
 N,Count,C = integer
predicates
 check(real,real)
 start(Count)
 abs_conc(N,K,Count)
goal 
 start(Count), write(Count).
Clauses
 start(Count):-write("N"), readint(N), write("K="), readreal(K), abs_conc(N,K,Count).
 abs_conc(N,K,Count):- N>0, write("A="), readreal(X),N1=N-1, abs_conc(N1,K,C), check(X,K), Count=C+1.
 abs_conc(_,_,0).
 check(A,K):-abs(A)>K, write(A), nl.

Вот, неправильно считает кол-во. 
Делал на turbo prolog 2.0
Спасибо!