print series N N-1 N-2 N-3 ..............10 9 8 7 6 5 4 3 2 1 IN PROLOG

 

print series   N N-1 N-2 N-3 ..............10 9 8 7 6 5 4 3 2 1 IN PROLOG

f(X):-

    write('Enter a value'),

    nl,

    read(X),

    g(X).

g(X):-

    X > 0,

    write(X),

    nl,

    X1 is (X - 1),

    g(X1).