calculations in prolog

The following are the programs which can perform         different arithmetic  operations in Prolog 

 To Sum  Numbers.

 sum:-
write('Type your First Number '),
read(X),
write('Type Your 2nd Number '),
read(Y),
S is X+Y,
write('The Sum of your numbers is = '),write(S),nl.

To Subtract Numbers


 sub:-
write('Type your first Number '),
read(X),
write('Type your 2nd Number '),
read(Y),
D is X-Y,
write('When we subtract your Numbers we get ='),write(D),nl.

To Divide Numbers

 divide:-

write('Type your First Number '),
read(X),
write('Type Your 2nd Number '),
read(Y),
Di is X/Y,
write('when we divide your numbers we get = '),write(Di),nl.

To Multiply Numbers 

 multiply:-

write('Type your First Number '),
read(X),
write('Type Your 2nd Number '),
read(Y),
M is X*Y,
write('The Multiply   your numbers we get  = '),write(M),nl.