--WITH ada.text_io;
--WITH Ada.integer_text_io;
WITH multiply;
WITH printValueWithLabel;
PROCEDURE testMultiply2	IS
a : integer;
b: integer;
c: integer;
d,e,f : integer;
BEGIN
  a := 5;
  printValueWithLabel (value => a, label => "The number's value is ");
  multiply (number =>a, square => b, cube => c);
  printValueWithLabel (value => b, label => "The number's square is ");
  printValueWithLabel (value => c, label => "The number's cube is");
  
  d := 24;
  multiply (cube => f, number =>d, square =>e);
  printValueWithLabel (label => "The number is ", value => d);
  printValueWithLabel (value => f, label => "The number's cube is");
  printValueWithLabel (value => e, label => "The number's square is");
END testMultiply2;