Программа квадратного корня - Prolog

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

Ребят, очень сильно нужна помощь, сказали запустить программу, а она не работает, ругается при выводе, уже столько промучилась, а понять не могу, посмотрите пожалуйста, и помогите, если не трудно переделать её так чтобы она считала таблицу корней от 1 до 9, умоляю, помогите!!!

Predicates
eq(real, real, real)
root(real, real, real)
 
Clauses
eq(A,B,C) :- D=B*B-4*A*C, root(A,B,D), nl.
root(_,_,D):-  D<0, write("Нет действительных корней ").
root(A,B,D):- D=0, X= -B/(2*A), write("Два действительных одинаковых корня = ",Х).
root(A,B,D):-  W=sqrt(D),
X1 =(-B+W)/(2*A), X2=(-B-W)/(2*A), write(A,"*X**2 + (", B, ")*X + (", C, ") = 0. корни: "),
write("X1=",X1),write("X2=",X2).
 
Goal
eq( 1,-15,50).

Решение задачи: «Программа квадратного корня»

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

predicates
nondeterm for(integer,integer).
 
clauses
 
for(N,N).
for(I,N):-
    W=sqrt(I),  
    writef("|     %     |     %-7.3f  |" ,I,W),nl,
    I1=I+1, for(I1,N).
goal
write( " <br>"),nl,
write( "| Число |    Корень  |"),nl,
for(1,10),
write( " -------------------------------").

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

В коде используется язык программирования Prolog.
Программа вычисляет квадратный корень для чисел от 1 до 10.
Для этого используется два предиката: «for» и «writef».
Предикат «for» используется для организации цикла от 1 до 10.
Предикат «writef» используется для вывода данных на экран.
В первой строке цикла вычисляется квадратный корень числа I и записывается в переменную W.
Затем выводится на экран строка с числом I и его корнем, а также выполняется переход к следующей итерации цикла.
В конце программы выводится итоговая таблица с числами от 1 до 10 и их корнями.