PASCAL: AN INTRODUCTION

PROGRAM SEVENTEEN
Write a program to calculate the cube of a given number (answer = number*number*number). Use a function to calculate the cube.


	program PROG17 (input,output);   {cube program using a function}

	function CUBE( x : integer ) : integer;
	begin
	     CUBE := x * x * x
	end;

	var number, answer : integer;
	begin
	    writeln('Enter integer to be cubed.');
	    readln( number );
	    answer := CUBE ( number );
	    writeln('The cube of ',number,' is ', answer)
	end.