uses graphABC;
var x : integer := 50;
begin
setPenColor(clBlack); // устанавливаем цвет линии
SetPenWidth(2); // устанавливаем толщину линии
for var i := 1 to 6 do begin
DrawCircle(x, 50, 50); // рисуем большой круг
DrawCircle(x, 50, 15); // и внутри него маленький
x := x+100; // сдвигаем центр круга по оси Х вправо но 100
end;
end.