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.