Program Garden;
{Program written by Philip Smith to calculate the area of a rectangular garden,
and to calculate the cost of turfing the garden}
Uses Wincrt;

Var
   relWidth    :Real;  {Width of the garden}
   relLength   :Real;  {Length of the garden}
   relArea     :Real;  {Area of the garden}
   relTurfcost     :Real;  {Cost of the turfing}

Begin
   {Welcome part}
   Gotoxy(20,1);        Writeln ('Welcome to the Garden size and turfting cost calculator');
   Gotoxy(30,2);        Writeln ('Program created by Philip Smith');

   {Input Data}
   Write ( 'Please enter the width of the garden ' );
   Readln(relWidth);
   Write( 'Please enter the length of the garden ' );
   Readln(relLength);

   {Calculate Area}
   relArea := relWidth * relLength;

   {Calculate cost of turf}
   relTurfcost := relArea * 2.75;

   {Display Garden Area}
   Writeln ( 'Garden Area = ', relArea:3:2 );

   {Display cost of turf}
   Writeln ( 'Cost of Turf = ', relTurfcost:3:2 );

   {Close program}
   Writeln ( 'End of program, please press any key to exit' );
   Readln;
   DoneWinCrt;
End.