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('Program Executed');
Readln;
End.
Hope this helps!
