Question

Write a program in pascal to find the area of a circle

Answer 1

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!