Unnamed

// main module
Module main()
        Declare Real classASold
        Declare Real classBSold
        Declare Real classCSold
        
	// Get amount of Class A tickets sold
	Call getClassASold(classASold)
	
	// Get amount of Class B tickets sold
	Call getClassBSold(classBSold)
	
	// Get amount of Class C tickets sold
	Call getClassCSold(classCSold)
	
	// Display totals
	Call showTotalSales(classASold, classBSold, classCSold)
End Module
	
Module getClassASold(Real Ref classASold)
	Display "How many Class A tickets were sold?"
	Input classASold
End Module

Module getClassBSold(Real Ref classBSold)
	Display "How many Class B tickets were sold?"
	Input classBSold
End Module

Module getclassCSold(Real Ref classCSold)
	Display "How many Class C tickets were sold?"
	Input classCSold
End Module

Module showTotalSales(Real classASold, Real classBSold, Real classCSold)
	Declare Real totalSales
	Set totalSales = (classASold * CLASS_A) + (classBSold * CLASS_B) + (classCSold * CLASS_C)
	Display "The total income generated is $", totalSales
End Module