Нарисовать солнечную систему - Turbo Pascal

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

построения геометрического изображения пространственной фигуры: Солнечной системы;

Решение задачи: «Нарисовать солнечную систему»

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

uses graph;
var
  i:integer;
  grd,grm,x,y,r:integer;
begin
  initgraph(grd,grm,'');
  x:=GetMaxX div 2;
  y:=GetMaxY div 2;
  r:=GetMaxY div 20;
  SetFillStyle(SolidFill,Yellow);
  for i:=10 downto 1 do
  begin
    circle(x,y,r+i*20);
    if i=1 then
      begin
//        SetBrushColor(clYellow);
        FillEllipse(x,y,r+i*20,r+i*20);
      end
    else
      if i=4 then
        begin
          circle(x+r+i*20,y,5);circle (5+x+r+i*20,y-10,2);
        end
      else
    circle(x+r+i*20,y,5);
  end;
  readln;
  closegraph;
end.

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

Подключается библиотека graph.
Объявляются переменные: i - целочисленный тип, grd, grm, x, y, r - целочисленные типы.
Вызывается функция initgraph, передавая в нее значения переменных grd, grm и пустую строку.
Вычисляются значения переменных x и y, деля максимальные значения y и x на 2.
Вычисляется значение переменной r, деля максимальное значение y на 20.
Устанавливается стиль заполнения фигур на SolidFill, цвет заполнения - желтый.
Задается цикл for, который будет выполняться от 10 до 1.
Внутри цикла вычисляется значение переменной x, y и r, умножая их на i и на 20.
Если i равно 1, то выполняется блок кода внутри if:
- Устанавливается цвет кисти на желтый.
- Выполняется команда FillEllipse, заполняя эллипс с координатами x, y и r, r.
Если i равно 4, то выполняется блок кода внутри if:
- Вычисляются координаты двух точек для окружности, добавляя к x, y и r значения 5 и 20i.
- Вычисляются координаты двух точек для окружности, добавляя к x, y и r значения 5 и 20i-10.
Если i не равно 1 и не равно 4, то вычисляется значение переменной x, y и r, умножая их на i.
Выполняется команда circle, рисуя окружность с координатами x, y и r.
Выводится команда readln, чтобы ожидать ввода пользователя.
Выводится команда closegraph, чтобы закрыть графическое окно.