program CircleDrawing; uses Crt, Graph; var radius, gd, gm: integer; begin // Initializing graphics mode gd := Detect; InitGraph(gd, gm, ''); // Getting radius of the circle from user writeln('Enter the radius of the circle: '); read(radius); // Drawing the circle setcolor(15); circle(getmaxx div 2, getmaxy div 2, radius); readkey; closegraph; end.
uses Crt, Graph;
var
radius, gd, gm: integer;
begin
// Initializing graphics mode
gd := Detect;
InitGraph(gd, gm, '');
// Getting radius of the circle from user
writeln('Enter the radius of the circle: ');
read(radius);
// Drawing the circle
setcolor(15);
circle(getmaxx div 2, getmaxy div 2, radius);
readkey;
closegraph;
end.