Program Compute;
   { This program reads user's name and one number     }
   { representing how many hours one works during a    }
   { week. It then computes and prints the weekly and  }
   { average daily wage under two different rates. It  }
   { also computes the difference between the weekly   }
   { wage under two different rates.                   }
   {                                                   }
   { Author : Xiannong Meng                            }
   { Date   : August 13, 1996                          }

   uses wincrt;      { uses Windows as input/output    }

   const
      LowRate     = 4.25;       { two hourly wage rates }
      HiRate      = 5.15;       
      DaysPerWeek = 5;          { five working days     }

   var
        FirstName, LastName : string;  { name of the person }
        HoursPerWeek        : integer; { hours worked       }
        WeekPayLow,                    { weekly wage at low rate }
        WeekPayHi,                     { weekly wage at high rate }
        WeekDiff,                      { difference per week }
        DailyPayLow,                   { average daily pay  }
        DailyPayHi,
        DayDiff                        { difference per day }
                            : real;

   begin  { Compute }
      { print a welcome message }
      writeln('This program will calculate wage for you');
      writeln('given the hours you worked during the week.');
 
      { read name }
      writeln('Please type your first name followed by a Return :');
      readln(FirstName);
      writeln('Please type your last name followed by a Return :');
      readln(LastName);

      { read the number of hours worked }
      write('Please type the number of hours worked during the week');
      writeln('followed by a Return :');
      readln(HoursPerWeek);

      { do the computation }
      { first weekly pay and the difference }
      WeekPayLow := HoursPerWeek * LowRate;
      WeekPayHi  := HoursPerWeek * HiRate;
      WeekDiff   := WeekPayHi - WeekPayLow;

      { then daily average and difference }
      DailyPayLow := WeekPayLow / DaysPerWeek;
      DailyPayHi  := WeekPayHi  / DaysPerWeek;
      DayDiff     := DailyPayHi - DailyPayLow;
      
      writeln('Dear ',FirstName,' :');
      writeln('  At the rate of ',LowRate,' dollars per hour, you will make');
      writeln(WeekPayLow,' dollars per week, and ',DailyPayLow,' dollars per');
      writeln('day. At the rate of ',HiRate,' dollars per hour, you will');
      writeln('make ',WeekPayHi,' dollars per week, and ',DailyPayHi);
      writeln(' dollars per day. The daily difference is ',DayDiff);
      writeln(' dollars. The weekly difference is ',WeekDiff,' dollars.');
      writeln('$$$$$$$$$$$$$$$$$$$$');
      writeln('Program ends.');
  end.   { Compute }