Ошибка в программе Prolog 7.5 - Prolog

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

Программа должна выводить список имен, список возрастов и в конце средний возраст персон. Но при компилирование выходит 4 ошибки. Выполнял всё по учебнику. Также есть программа.

Код к задаче: «Ошибка в программе Prolog 7.5 - Prolog»

textual
% Copyright
 
 
implement main
    open core, console, person
 
clauses
    run() :-
        init(),
        write("Список студентов "),nl,
        L1 = [ Name ||person:: person(Name, _)], % Получить список
        write(_N1),nl,nl,
        write("Их возраст"),nl,
        L2 = [ Age || person:: person(_, Age)], % Получить список возрастов
        write(L1),nl,nl,
        % Получить из списка L2 сумму возрастов Sum и число студентов N
        sumlist(L2, Sum, N),
        Ave = Sum/N, % Средний возраст студентов
        write("Средний возраст=", Ave),nl,nl,
        write("Нажмите Enter"),
        _= readLine().
end implement main
 
goal
    mainExe::run(main::run).

5   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ