WITH Text_IO;
USE Text_IO;

PROCEDURE FahrToCels IS

 package Number is new Integer_IO (Integer);
 use Number;

 DegFahr,DegCels		: Integer;

BEGIN
 Text_IO.Put(Item=>"Enter the Degrees Fahrenheit >");
 Number.Get(Item=>DegFahr);
 DegCels:=(DegFahr-32)*5/9;
 Text_IO.Put(Item=>"Degrees Celsius is ");
 Number.Put(Item=>DegCels);
 Text_IO.New_Line;
END FahrToCels;