Prolog - Codigo del porgrama consejero financiero.

Agrardecere me ayudeen a corregir mi codigo, gracias.

predicates

inversion(real,real,real,real,integer).

%monto_ahorrado is A.
%total_ingresos is B.
%ingresos_trabajo is C.
%numero_dependientes is D.

%minimo_ahorros is X1.
%minimo_ingresos is X2.
%resultado is X.

clauses

inversion:-write_ln("Teclea monto ahorrado_"),
readln(A),write("El valor de ",A),write_ln(A),write_ln("Teclea total de ingresos_"),
readln(B),write("El valor de ",B),write_ln(B),write_ln("Teclea ingresos por trabajo_"),
readln(C),write("El valor de ",C),write_ln(C),write_ln("Teclea numero dependientes_"),
readln(D),write("El valor de ",D),write_ln(D);(D*5000);(D+15000)*4000;(A>X),
write("yes");(A<=X),write("No");(B>X),write("yes");(B<=X),write("No").
goal

inversion(X,A,B,C,D).

<h1>hola</h1>