PROGRAM cmaker (INPUT, OUTPUT); (* This Pascal program is non-interactive. It contains a purchase price *) (* and an amount paid, and puts the change in the memory location of the *) (* variables. *) VAR purchase : INTEGER; paid : INTEGER; change : INTEGER; coins : INTEGER; dollars : INTEGER; quarters : INTEGER; dimes : INTEGER; nickels : INTEGER; pennies : INTEGER; PROCEDURE init (* variables will be global *); BEGIN purchase := 0; paid := 0; change := 0; coins := 0; dollars := 0; quarters := 0; dimes := 0; nickels := 0; pennies := 0 END; PROCEDURE getinput(*purchase, paid*); BEGIN paid := 150; purchase := 108 END; PROCEDURE payout; (* how many dollars, quarters, etc. *) BEGIN dollars := change DIV 100; coins := change MOD 100; quarters := coins DIV 25; coins := coins MOD 25; dimes := coins DIV 10; coins := coins MOD 10; nickels := coins DIV 5; pennies := coins MOD 5 END; BEGIN (* mainline *) init (* clear memory *); getinput (* fixed amounts *); change := paid - purchase; payout (* put amounts in memory *) END.