{                                  Matt Michie                             }
{                                  Period 4 - Pascal                       }
{                                  Due Date: Tuesday, Sept. 14             }
{ Program Description:  This program calculates the area of a cirlce with  }
{ the area of 21.  It then outputs the answer to the screen.               }
{                                                                          }
{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
{ Grading Criteria:                                                        }
{                                                                          }
{ ________________ Header (5pts)                                           }
{                                                                          }
{ ________________ Program Description (5pts)                              }
{                                                                          }
{ ________________ Presentation (5pts)                                     }
{                                                                          }
{ ________________ Run of Program (5pts)                                   }
{                                                                          }
{ ________________ Final Grade                                             }
{===========================Main Program===================================}


Program CircleArea (Input, Output);
Uses crt; {Tells the computer to use the monitor}
Begin {main}
  clrscr;
  writeLn ('This program calculates the are of a circle with a radius of 21!');
  write ('The area is');
  writeLn (3.14 * 21 * 21);
  writeLn;
  writeLn ('Please press enter now....');
  readLn {Waits until the computer presses enter}
End.