(* Created by Namrata Khemka as a supplement of Assignment 3 for CPSC 231*)
(* Calculate the wages earned by the employee.   The hourly rate will be a fixed rate and the program
   will determine the amount of money earned based on the number of hours worked at this rate of pay.
 *  *)

(* Program Header*)
program shopping (input,output);

(*Constant Declarations*)
const
   RATE_PAID = 8.05;

   
begin

   (* Variable Declarations*)
   var hours : real;
   var total : real;

   (*The number of hours an employee works*)
   write ('Enter the number of hours worked: ');
   readln (hours);

   (*Calculate the amount paid to the employee*)
   total := hours * RATE_PAID;

   writeln ('The employee has earned $', total:0:2);
end.