Выведите элемент под номером N. Turbo Prolog v.2.0

Буду очень благодарен !

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

domains
int=integer
intl=int*
 
predicates
nth(intl,int,int)
 
clauses
nth([H|_],0,H).
nth([_|T],N,H) :- N1=N-1, nth(T,N1,H).

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

domains - определяются два типа переменных: целочисленная (int) и указатель на целочисленный массив (intl).
predicates - определяется predicate nth с тремя аргументами: intl (массив), int (номер элемента), int (результат).
clauses - определяются два правила (конкретные случаи) для работы с predicate nth:
- nth([H|_],0,H) - если массив состоит из одного элемента (пустой список с одним элементом), то этот элемент выводится при любом номере.
- nth([_|T],N,H) :- N1=N-1, nth(T,N1,H) - если массив не пустой, то выводится элемент с индексом N-1, для этого создается новая переменная N1, которая равна N-1.
В результате, данный код позволяет выводить элемент массива по заданному номеру.