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

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

program Circle;
uses Graph;

var
radius: integer;
gd, gm: smallint;
begin
gd := Detect;
InitGraph(gd, gm, '');

writeln('Enter the radius of the circle: ');
readln(radius);

SetColor(15);
Circle(GetMaxX div 2, GetMaxY div 2, radius);

readln;
CloseGraph;
end.