Area of a Circle in Pascal

A simple program that I wrote in Pascal that will compute the area of the circle based on the given value by the user. In this program I wrote using Turbo Pascal 5.0 as my Pascal compiler.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Area_Circle;

Uses Crt;

Const

  Pi = 3.1416;

Var

  Radius : Integer;

  Area    : Real;

Begin

  Clrscr;

  Writeln('Area of a Circle Solver');

  Writeln;

  Write('Enter the Radius of the Circle : ');

  Readln(Radius);

  Area := (Pi * Radius * Radius);

  Writeln;

  Writeln('The Area of the Circle is ' ,Area:8:2,'.');

  Writeln;

  Writeln('Thank You For Using This Program');

  Readln;

End.