PROGRAM TO CALCULATE THE CUBE OF A NUMBER

% START WITH WRITING CUDE ON COMMOND PROMPT
match(10).
manage:-nl,write('Do u wanna enter another value:'),nl,write('Enter 10 for yes:'),nl,write('Press any key for no:'),read(K),match(K).
cube:- write(' *** welcome to program ***'),nl, write('Enter the value of variable1:'),read(X),Z is X**3,nl, write( Z), manage,cube.