WITH Ada.Text_IO;
WITH Ada.Integer_Text_IO;
WITH Ada.Float_Text_IO;
PROCEDURE money IS

Type Amount IS (pennies,dimes,dollars);
Package cIO IS NEW Ada.Text_IO.Enumeration_IO(Enum=>Amount);

miles:Amount;
x:natural;

y:natural;

z:Float;

BEGIN

Ada.Text_IO.Put(Item=>"Input the type of money (pennies,dimes,dollars): ");
cIO.Get(Item=>miles);
Ada.Text_IO.New_Line;
Ada.Text_IO.Put(Item=>"How many ");
cIO.Put(Item=>miles);
Ada.Text_IO.Put(Item=>" do you have?");
Ada.Integer_Text_IO.Get(Item=>y);
x:=Amount'POS (miles);
z:=Float (y*(10**x))/100.00;
Ada.Text_IO.New_Line;
Ada.Text_IO.Put(Item=>"You have $");
Ada.Float_Text_IO.Put(Item=>z,Fore=>1,Aft=>2,Exp=>0);
END money;