-- File: tempconvert.ada
-- Demonstrate :
--	R/W Integers and Floats
--	Conversion between types via a cast
--	Formatting of Real Numbers
WITH Text_IO;
USE Text_IO;

PROCEDURE TempConvert IS

 package Number is new Integer_IO (Integer);  -- pkg for reading int
 package RealNumber is new Float_IO (Float);  -- pkg for reading float
 use Number;
 use RealNumber;

 DegFahr		: Integer;
 DegCels		: Float;

BEGIN
 Text_IO.Put(Item=>"Enter the Degrees Fahrenheit >");
 Get(Item=>DegFahr);		-- didn't need Number.   why not?
 -- Convert temperature. Note all operands must be floats
 DegCels:=(Float(DegFahr)-32.0)*Float(5)/Float(9);
 -- Report results
 Text_IO.Put(Item=>"Degrees Celsius is ");
 RealNumber.Put(Item=>DegCels,Fore=>0,Aft=>2,Exp=>0); -- 0 means min
 Text_IO.New_Line;
END TempConvert ;