Добрый день. Помогите пожалуйста с таким заданием: Задан список из N чисел a (1), a (2 ),..., a (N). Написать программу которая найдет количество четных чисел, удовлетворяющих условие i <a (i) <2 * i. Я тут кое- что накрапал:
domains     
    element=integer
    list=element*
predicates
        p(list,integer)
        start
clauses       
        p([],_).
        p([H|T],N):-
         NN=N+1,p(T,NN),
          0=H mod 2,
          H>N,NNN=N*N,H<NNN,
          write(H),nl.
          p(_,_).
          start:-
        L=[2,3,4,5],    
 p(L,1),!.
goal
start.

Но что-то мне не нравится что результат вводит только "4", независимо сколько б парных чисел я б не вписал в список. Если можно помогите с правельным решение этой задачи, и что бы список чисел надо было б вводить с главиатуры в goal.

M kemiisto

Для Prolog существует отдельный подраздел. Тема перенесена.