Нарисовать вложенные квадраты разного цвета. Размер стороны большого квадрата взять равным 300 пикселей.

uses graphabc;
var x0,y0:integer;
begin
x0 := windowwidth div 2;
y0 := windowheight div 2;
setbrushcolor(clAqua);
rectangle(x0-150,y0-150,x0+150,y0+150);

setbrushcolor(clRed);
rectangle(x0-110,y0-110,x0+110,y0+110);

setbrushcolor(clGreen);
rectangle(x0-70,y0-70,x0+70,y0+70);

setbrushcolor(clYellow);
rectangle(x0-35,y0-35,x0+35,y0+35);
end.