AI Lab

add:-sum,nl.

sum:- write('Enter A='),read(A),
    write('Enter B='),read(B),
    S is A+B,
    write('Sum of A+B='),write(S).


sub:-subt,nl.

subt:- write('Enter A='),read(A),
    write('Enter B='),read(B),
    S is A-B,
    write('Subtraction of A-B='),write(S).


mul:-mult,nl.

mult:- write('Enter A='),read(A),
    write('Enter B='),read(B),
    S is A*B,
    write('Multiplication of A*B='),write(S).


and mod
//


div:-divi,nl.

divi:- write('Enter A='),read(A),
    write('Enter B='),read(B),
    S is A/B,
    write('Division of A-B='),write(S).