Циклическое рисование квадратов, где размер каждого нового меньше предыдущего - Pascal ABC

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

использовать вложенные циклы и различные цвета

Решение задачи: «Циклическое рисование квадратов, где размер каждого нового меньше предыдущего»

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

uses graphABC;
var a,i:integer;
begin
randomize;
setwindowsize(400,400);
a:=windowheight div 12;
setbrushstyle(bsClear);
for i:=1 to 12 do
 begin
  setpencolor(clrandom);
  rectangle(0,windowheight-i*a,i*a,windowheight);
 end;
end.

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

В первой строке используется библиотека graphABC, которая, вероятно, предоставляет функции для работы с графиками.
Переменная a инициализируется значением, равным половине высоты окна, деленной на 12. Это значение будет использоваться для определения размеров квадратов.
Функция setwindowsize устанавливает размер окна в 400x400 пикселей.
Функция setbrushstyle устанавливает стиль кисти на Clear (чистый).
В цикле for переменной i от 1 до 12 выполняется следующая последовательность действий:
- Устанавливается цвет кисти на случайный цвет с помощью функции setpencolor(clrandom).
- Рисуется квадрат с помощью функции rectangle(0,windowheight-ia,ia,windowheight), где 0, windowheight-ia и ia - это координаты верхнего левого и нижнего правого углов квадрата соответственно.
- Квадрат рисуется с размером i*a, где i - это текущее значение переменной i, а a - это значение, полученное на шаге 2.
Цикл for завершается, когда i достигает значения 12.