c. Implement predicates for basic arithmetic operations like addition and multiplication. | Prolog Code

 

add(A, B, Sum) :-

    Sum is A + B.

subb(A, B, Sub) :-

    Sub is A - B.

mul(A, B, Mul) :-

    Mul is A * B.

divv(A, B, Div) :-

    Div is A / B.        

modd(A, B, Mod) :-

    Mod is A mod B.

go :-

    write("Enter Two Numbers: "), nl,

    read(A), read(B),

    add(A, B, Sum),

    write("Sum Is: "), write(Sum), nl, nl,

    subb(A, B, Sub),

    write("Sub Is: "), write(Sub), nl, nl,

    mul(A, B, Mul),

    write("Mul Is: "), write(Mul), nl, nl,

    divv(A, B, Div),

    write("Div Is: "), write(Div), nl, nl,

    modd(A, B, Mod),

    write("Mod Is: "), write(Mod), nl, nl.