(* Chapter 13 - Program 3 *)
program Garden;
(*****************************************************************)
(*                                                               *)
(* This program calculates how much area there is to plow in a   *)
(* circular garden, and how long the wall will be around it.     *)
(*                                                               *)
(*****************************************************************)

uses Areas, Perims;

var Radius, Area, Circumference : real;

begin
   Radius := 12.0;
   Area := Area_Of_Circle(Radius);
   Perimeter_Of_Circle(Radius,Circumference);

              (* Calculations complete, output results *)

   Writeln('The radius of the garden is ',Radius:6:1,' feet.');
   Writeln('The area to plow is ',Area:6:1,' square feet.');
   Writeln('A wall around the garden will be ',Circumference:6:1,
                  ' feet long.');
   Writeln;
end.




{ Result of execution

The radius of the garden is   12.0 feet.
The area to plow is  452.4 square feet.
A wall around the garden will be  75.4 feet long.

}