Как создать две программы в PascalABC - Pascal ABC

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

Нарисовать рисунок:

Решение задачи: «Как создать две программы в PascalABC»

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

uses graphABC;
procedure ris(x,y,r:integer);
begin
setbrushcolor(clBlack);
rectangle(x-r,y-r,x,y);
rectangle(x,y,x+r,y+r);
setbrushcolor(clWhite);
rectangle(x,y-r,x+r,y);
rectangle(x-r,y,x,y+r);
pie(x,y,r,90,180);
pie(x,y,r,270,360);
setbrushcolor(clBlack);
pie(x,y,r,0,90);
pie(x,y,r,180,270);
end;
var r,x,y,i,j:integer;
begin
r:=50;
setwindowsize(10*r,10*r);
centerwindow;
y:=r;
for i:=1 to 5 do
 begin
  x:=r;
  for j:=1 to 5 do
   begin
    ris(x,y,r);
    x:=x+2*r;
   end;
  y:=y+2*r;
 end;
end.

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

Используется графический модуль graphABC.
Определена процедура ris, которая рисует кольца на графике.
В основной программе определены переменные r, x, y, i, j, которые используются в цикле.
Размер окна установлен в 10*r, и окно центрировано.
Начальное значение y установлено в r.
Цикл for выполняется 5 раз.
Внутри цикла for определена вложенная область, которая также выполняется 5 раз.
Во время вложенной области рисование функции ris выполняется с разными значениями x.
После выполнения вложенной области значение x увеличивается на 2*r.
После выполнения внешнего цикла значение y увеличивается на 2*r.
В конце программы вызывается функция ris с начальными значениями x и y, и значениями r, 0, 90, 180, 270.
Функция ris рисует кольца на графике с помощью функций из модуля graphABC.
Функция pie рисует сегмент круга на графике.
Функция setbrushcolor устанавливает цвет кисти.
Функция rectangle рисует прямоугольник на графике.
Функция setwindowsize устанавливает размер окна.
Функция centerwindow центрирует окно.
Значение r установлено в 50.
Значения x и y установлены в r.
Цикл for выполняется 5 раз.