-- In order to get you started, this is the structure of the first
-- homework problem. It can be used as-is or modified to suit your
-- needs. It was compiled and executed as listed here on the input
-- data CHANGE.DAT
--
-- A possible start to homework 1.  make change is file   change.adb 

with Ada.Text_IO ; use Ada.Text_IO ;

procedure Change is

  subtype Amount_Type is Integer range 1 .. 99 ;  -- no zero allowed

  Amount , Quarters , Dimes , Nickels , Pennies : Amount_Type ;

  package Amount_IO is new Integer_IO ( Amount_Type ) ;
  use Amount_IO ;

begin

  loop  -- start an infinite loop

    begin  -- create a block with an exception handler in order to stay in
           -- the loop even if bad input occurs

      Get ( Amount ) ;               -- read something of Amount_Type
      Put ( Amount , 3 ) ;           -- print what is read, 3 digits
      Put_Line ( " = input Amount " ) ;
--
--    PUT YOUR CODE HERE TO COMPUTE CHANGE
--
    exception
      when Data_Error =>
        Put_Line ( " BAD INPUT DATA, IGNORED" ) ;
        Skip_Line ;  -- remove stray crud from STANDARD_INPUT
    end ;  -- end of block within loop

  end loop ; -- the only exit is when an end-of-file occurs  ^Z or ^D

exception
  when End_Error =>          -- this gets end-of-file
    Put_Line ( " end of change run" ) ;

end Change ;

-- CHANGE.DAT is the following: ( not the "--" in the file )
-- 99
-- 94
-- 25
-- 10
-- 5
-- 1
-- -5
-- 100
-- ABC
-- 1
--        change < change.dat               to run program with input file
--        change < change.dat > change.out  to get output to turn in