sum(A,B,C) :-C is A+B.
cube(A,C) :-C is A*A*A, write('The cube of'),write(A), write('is'),write(C).
multipletask(A,B,R,P):- R is A*B, P is 2*(A+B),write('The Area & Perimeter of'), write(A),write('and'), write(B), write('is'), write(R),write('and'),write(P).