Нарисовать несколько окружностей - 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.

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

Установка размера окна: setwindowsize(500,500);
Центрирование окна: centerwindow;
Создание цикла для рисования окружностей: for var n := 0 to 4 do
Вызов функции Circle для рисования окружности с параметрами: 60+n*90, 60+n*90, 60.
Завершение цикла.
Конец программы: end.