First lab:

a.)  Enter this program and try to compile it. Correct the syntax 
errors. After it compiles, test it for several different items using 
different costs and markup percentages. Include markup percentages of 
zero (no markup) and 100 (double the cost). You will have to fix the 
errors in logic before your answers are correct.

b.)  Modify the corrected program so that it also asks the user for a 
discount percentage and then computes a discount amount when 
appropriate. Show the discount amount as part of the final display of 
outputs.

program Prices (Input, Output);

   const
	TaxPct = 0.07;    {Philly tax percentage}

   var
	Cost,		{input}
	MarkupPct,	{input}
	AmountDue,	{output - amount due after tax}
	Markup,		{program variable - amount of markup}
	Price,		{program variable - price}
	Tax : Real;	{program variable - tax amount}

begin
   {Enter cost and markup percentage.}
   Write ('Enter cost of item >);
   ReadLn (Cost);
   Write ('Enter markup percent >');
   ReadLn (MarkupPct);
   {Convert percentage to decimal fraction.}
   MarkupPct := MarkupPct / 100.0;

   {Compute selling price.}
   Markup := Markup * Cost;
   Price := Cost + Markup;

   {Compute amount due.}
   SalesTax := Cost * TaxPct;
   AmountDue := Price + SalesTax;

   {Display results.}
   WriteLn ('Item price is $,' Price);
   WriteLn ('Sales tax is  $,' Tax);
   WriteLn ('Amount due is $,' AmountDue)
end.