Visual prolog 9
почему ошибка

class my

domains
list_d = integer*.

predicates
readlist (list_d). (пишет тут ошибка, указывает на первую скобку error c 150 :Syntax error )

end class

implement my

clauses
readlist([Head | Tail]) :-
console::write("enter element value or empty string to finish: "),
readlist(Head),
!,
readlist(Tail).
readlist([]).

end implement

goal
readlist([]).

исправлял по всякому и все равно находит ошибки может кто

//Pascal ABC.NET 3.2 сборка 1318

Var
  f:text;
  n:integer;
  s:string;

   
procedure VoTeRaz(f:text;n:integer;s:string);
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
end;

function VoTeDva(f:text;n:integer;s:string):integer;
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
VoTeDva:=0;
end;
   
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.

Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6 
Стало:
891 5 6
Было:
891 5 6 
Стало:
113157 5 6

Программа от Microsoft, входящая в Office, под названием Excel или электронные таблицы была создана для более удобной работы пользователя с таблицами данных, причём преимущественно данная работа производится с числовыми значениями.
Благодаря использованию электронных таблиц — намного проще работать с данными, с её можно получать точные результаты без выполнения каких-либо ручных расчётов. Также электронные таблицы позволяют с специального «программирования» решать намного быстрее более сложные задачи.
Основной особенностью MS Excel выступает его возможность использовать формулы для того, чтобы описывать между значениями разных ячеек различные связи. Следует отметить, что по заданным формулам расчёт будет выполняться автоматически. Если человек изменяет значение какой-либо ячейки, то сразу же автоматически произойдёт перерасчёт значений всех остальных ячеек, которые связаны с ней формульными отношениями, благодаря чему обновится вся таблица и данные, которые находятся в ней.