uses GraphABC;

procedure drawCircles(); // Процедура рисования кружочков
var
  radius : integer; // Текущий радиус окружности
  centerX, centerY: integer; // Центр окружности
  deltaRadius, maxRadius: integer; // Изменение и максимальный радиусы
  i : integer; // Счетчик

begin
  centerX := Window.Width div 2;  // Находим центр окна по Ох
  centerY := Window.Height div 2; // Находим центр окна по Оу

  maxRadius := min(Window.Height, Window.Width) div 2; // Находим радиус вписаной в окно окружности
  deltaRadius := maxRadius div 10; // Считаем изменение радиуса для 10 окружностей

  radius := maxRadius; // Устанавливаем радиус в максимальный
  for i := 0 to 10 do // Рисуем десять окружностей
  begin
    SetPenColor(clRandom); // Устанавливаем случайный цвет
    Circle(centerX, centerY, radius); // Рисуем окружность
    radius -= deltaRadius; // Уменьшаем радиус
  end;
end;

begin
  SetWindowSize(800, 500); // Устанавливаем размеры окна
  drawCircles(); // Вызываем подпрограмму
end.