Нарисовать несколько окружностей - PascalABC.NET/GraphABC

Как сделать чтобы несколько окружностей были нарисованы по горизонтали

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

uses GraphABC;
begin
setwindowsize(500,500);
centerwindow;
for var n := 0 to 4 do Circle(60+n*90,60+n*90,60);
end.

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

В данном коде происходит следующее:

Используется модуль GraphABC.
Устанавливается размер окна 500x500 пикселей.
Окно центрируется.
Создается цикл, который выполняется 5 раз.
В каждой итерации цикла рисуется окружность с радиусом 60 пикселей.
Координаты центра окружности (x,y) равны 60+n*90, где n - номер итерации от 0 до 4.
После выполнения всех итераций цикла, программа завершается.