Напишите данную программу на турбо прологе - Prolog

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

Var
a,s:integer;
begin
  s:=0;
  repeat
  readln(a);
  s:=s+a;
  until a=0;
  writeln('Сумма чисел: ',s);
end

Заранее спасибо

Решение задачи: «Напишите данную программу на турбо прологе»

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

predicates
  loop(integer)
clauses
  loop(X) :-
    readln(L),
    str_int(L, A),
    A <> 0,
    !,
    XX = X + A,
    loop(XX).
  loop(X) :-
    write(" Summa: ",  X), nl.
goal
  loop(0).

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

В данном коде на языке Prolog реализована программа для сложения чисел, вводимых пользователем, до тех пор, пока не будет введено значение 0.

Предполагается, что данная программа будет работать в цикле до тех пор, пока пользователь не введет 0.
При каждом запуске цикла программа запрашивает у пользователя ввод числа и сохраняет его в переменной A.
Если введенное число не равно 0, то программа добавляет его к текущему значению переменной X и продолжает цикл.
Если введенное число равно 0, то программа выводит текущее значение переменной X и завершает цикл.