Нарисовать мишень из 10 кругов используя цикл - Turbo Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
uses GraphABC;
var i,x:integer;
begin
x:=50;
For i:=1 to 10 do
begin
Circle(100,250,x);
x:=x+50;
end
 
end.

Решение задачи: «Нарисовать мишень из 10 кругов используя цикл»

Листинг программы

uses GraphABC;
var c,i,x,dx:integer;
begin
setwindowsize(400,400);
centerwindow;
setbrushstyle(bsClear);
c:=windowwidth div 2;
dx:=c div 10;
x:=dx;
For i:=1 to 10 do
  begin
   Circle(c,c,x);
   x:=x+dx;
  end
end.

Объяснение кода листинга программы

В начале кода используются библиотеки GraphABC и Windows, а также объявляются переменные c, i, x и dx типа integer.
Функция setwindowsize устанавливает размер окна в 400 на 400 пикселей.
Функция centerwindow центрирует окно на экране.
Функция setbrushstyle устанавливает стиль кисти на bsClear (чистый).
Переменная c инициализируется половиной ширины окна.
Переменная dx инициализируется как c, деленный на 10.
Переменная x инициализируется значением dx.
Запускается цикл For, который выполняется 10 раз (от 1 до 10).
Внутри цикла создается окружность с помощью функции Circle.
Значение x увеличивается на dx.
После завершения цикла, окружность исчезает с помощью функции Circle.
Окно отображается с помощью функции ShowWindow.