Уменьшающийся квадрат (PascalABC)

program kv1;
uses graphabc;
var a, x, y:integer;
begin
readln(a, x, y);
repeat
rectangle(x, y, x+a, y+a);
a:=a div 2;
until a=1;
readln;
end.
Данная программа рисует квадраты, каждый в два раза меньше предыдущего, до тех пок, пока сторона квадрата не станет равна одному пикселю.
Ваша задача заключается в модификации программы таким образом, чтобы она была окрашена в два цвета - каждый следующий квадрат должен иметь свой цвет.
Дла достижения этого эффекта указывайте точку внутри квадрата, иначе раскрасите не то. Проще всего увеличить цикл в два раза, чтобы на каждом шаге рисовалось два квадрата и каждый был окрашен своим цветом, хотя есть куча других способов. Как реализовать решать вам.
Исполняемый файл можете скачать тут