Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников - PascalABC.NET

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

Зараннее сасибо)

Решение задачи: «Нарисовать на экране несколько вложенных друг в друга разноцветных прямоугольников»

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

uses graphABC,ABCobjects;
var x,y,w,h,i:integer;
    r:RectangleABC;
begin
x:=50;
y:=50;    
w:=windowwidth-100;
h:=windowheight-100;
for i:=1 to 5 do
 begin
  r:=RectangleABC.Create(x,y,w,h,clrandom);
  x:=x+50;
  y:=y+50;
  w:=w-100;
  h:=h-100;
 end;
end.

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

Подключение необходимых модулей для работы с графикой и объектами
Объявление переменных: x, y, w, h, i (метки границ прямоугольников) и r (сам прямоугольник) типа integer
Инициализация начальных значений переменных: x=50, y=50, w=windowwidth-100, h=windowheight-100
Создание цикла for для рисования 5 прямоугольников
Внутри цикла создается новый объект прямоугольника с помощью метода Create(x,y,w,h,clrandom), где clrandom — это случайный цвет
После создания каждого прямоугольника, координаты следующего прямоугольника смещаются вправо и вниз на 50 пикселей
Значения переменных w и h уменьшаются на 100 пикселей для создания эффекта вложенности
Цикл завершается после создания 5 прямоугольников
Код заканчивается