PROCEDURE multiply (number :IN integer; square : OUT integer; cube : OUT integer) IS
BEGIN
square := number * number;
cube := square * number;
END multiply;