Написать программу в которой пользователь должен будет ввести радиус окружности после чего на экране возникнет окружность с этим радиусом. В паскале.

Предыдущий
вопрос Следующий
вопрос

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.