Сумма и среднее арифметическое ряда чисел - Prolog

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

Дано число N. Вычислить сумму и среднее арифметическое ряда целых четных чисел от 2 до N и вывести эти значения через пробел. Например: если дано "10", ответом будет "30 6". Исходные данные должны считываться из файла "Input.txt" а результат записываться в файл "Output.txt" ничего кроме результата ни на экран ни в файл выводится не должно.

Решение задачи: «Сумма и среднее арифметическое ряда чисел»

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

domains
file=f1;f2
predicates
nondeterm sum(integer,integer,integer)
nondeterm start
clauses
sum(N,S,C):-N>=2,N mod 2=0,N1=N-1,S1=S+N,C1=C+1,
            sum(N1,S1,C1).
sum(N,S,C):-N>=2,N mod 2<>0,N1=N-1,
            sum(N1,S,C).
sum(N,S,C):-N<2,M=S/C,format(Str,"% %",S,M), write(Str),
            writedevice(f2), write(Str).
 
start:-openread(f1,"D:\Input.txt"),openwrite(f2,"D:\Output.txt"),
       readdevice(f1),
       readint(Int), sum(Int,0,0),
       closefile (f1),closefile (f2),nl.
goal
start.

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

Предположительно, данная программа вычисляет сумму и среднее арифметическое ряда чисел.
Переменная N используется для хранения количества чисел в ряду.
Переменная S используется для хранения суммы чисел в ряду.
Переменная C используется для хранения количества чисел в ряду.
Программа пытается открыть файл Input.txt для чтения и файл Output.txt для записи.
Если файлы успешно открыты, программа начинает читать числа из файла Input.txt и вычислять их сумму.
После того, как все числа будут прочитаны, программа записывает результат в файл Output.txt.
Затем программа закрывает файлы Input.txt и Output.txt.
Если файлы не удалось открыть, программа выводит сообщение об ошибке.