REM: SOLUTION 1
REM: amountOwed is the original amount of change owed
REM: amountLeft is the running total of amount owed as change is returned (originally same as amoutOwed)
REM: numQuarters,  numDimes, numPennies are the number of quarters, dimes and pennies returned

WHILE (change not completely returned) DO
BEGIN
     WHILE (amount left not less value than value of a quarter) DO
     BEGIN
          amountLeft := amountLeft - 25
          numQuarters := numQuarters + 1
     END  

     WHILE (amount left not less value than value of a dime) DO
     BEGIN
          amountLeft := amountLeft - 10
          numDimes := numDimes + 1
     END  
          
     numPennies := amountLeft
END