Вычислить сумму цифр введенного числа c клавиатуры

PREDICATES
    summa(integer, integer)
GOAL
    Y = 12345,
    summa(Y,X),
    write("Summa numeral ",Y,"= ",X)    
    
CLAUSES
    summa(X,Y) :- X<10, Y=X!.
    summa(X,Y) :- 
        X1 = X div 10,
        summa(X1, Y1),
        Y = Y1 + X mod 10.

PREDICATES
    summa(integer, integer)
    vvod(integer)
GOAL
    vvod(X),
    summa(X,Y),
    write("Summa numeral ",X,"= ",Y)
CLAUSES
    summa(X,Y) :- X<10, Y=X,!.
    summa(X,Y) :- 
        X1 = X div 10,
        summa(X1, Y1),
        Y = Y1 + X mod 10.
    vvod(X) :- write("Vvedite X"),nl,readint(X).

PREDICATES
    summa(integer, integer)
    vvod(integer)
GOAL
    vvod(X),summa(X,Y),write("Summa numeral ",X,"= ",Y).
CLAUSES
    summa(X,Y) :- X<10, Y=X,!.
    summa(X,Y) :- X1 = X div 10,summa(X1, Y1),Y = Y1 + X mod 10.
    vvod(X) :- write("Vvedite X"),nl,readint(X).