Построение фигур с командами цикла - Pascal ABC

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

Помогите пожалуйста,очень срочно нужно выполнить задание.Необходимо написать программы,рисующие фигуры из прикрепленного файла с использованием команд цикла

Решение задачи: «Построение фигур с командами цикла»

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

uses graphABC;
var x,y,r,i:integer;
begin
setpenwidth(2);
setbrushstyle(bsClear);
x:=windowwidth div 3;
y:=windowheight div 2;
r:=30;
for i:=1 to 4 do
 begin
  circle(x,y,r);
  x:=x+r div 2;
  r:=3*r div 2;
 end;
end.

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

В первой строке используется библиотека graphABC, которая, вероятно, предоставляет функции для работы с графиками.
Переменные x, y и r инициализируются целыми числами.
Функция setpenwidth устанавливает ширину пера в 2 единицы.
Функция setbrushstyle устанавливает стиль кисти на bsClear, что, вероятно, очищает кисть перед рисованием.
Переменная x вычисляется как половина ширины окна, деленная на 3.
Переменная y вычисляется как половина высоты окна, деленная на 2.
Переменная r инициализируется значением 30.
Цикл for начинается с i равным 1 и продолжается до 4.
Внутри цикла выполняется команда circle(x, y, r), которая рисует окружность с координатами x, y и радиусом r.
Переменная x обновляется, чтобы быть равной x + (r/2), что, вероятно, смещает точку на окружности.
Переменная r обновляется, чтобы быть в 3 раза больше предыдущего значения, что, вероятно, увеличивает радиус окружности.
Цикл for завершается, и программа заканчивается.