Program weekly_expenditure;
uses wincrt;
Var
   mon_exp:real;
   tues_exp:real;
   wens_exp:real;
   thurs_exp:real;
   fri_exp:real;
   tot_week_exp:real;
   avg_day_exp:real;

begin
{Welcome}
         {1}Write('Welcome to the weekly expenditure program');
         Writeln;
         Readln;
{Capture data}
         {2}Write('Please enter the expenditure for Monday £');
         {3}Readln(mon_exp);
         {4}Write('Please enter the expenditure for Tuesday £');
         {5}Readln(tues_exp);
         {6}Write('Please enter the expenditure for Wednesday £');
         {7}Readln(wens_exp);
         {8}Write('Please enter the expenditure for Thursday £');
         {9}Readln(thurs_exp);
         {10}Write('Please enter the expenditure for Friday £');
         {11}Readln(fri_exp);
{Process expenditure}
         {12}tot_week_exp := mon_exp + tues_exp + wens_exp + thurs_exp + fri_exp;
         {13}avg_day_exp := tot_week_exp / 5;
{Display Results}
         {14}Write('The Total Weekly Expenditure is £',tot_week_exp:3:2);
         Readln;
         {15}Write('The Average Daily Expediture is £',avg_day_exp:3:2);
         Readln;
{Program over}
         {16}Write('Program over, press any key to exit');
         {17}Readln;
         {18}Donewincrt;
end.