Составьте процедуру, выводящую на экран несколько фигур разного размера и цвета

uses graph;
procedure figura(x,y,a,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
circle(x,y-a,a);
circle(x+a,y,a);
circle(x,y+a,a);
circle(x-a,y,a);
bar(x-a,y-a,x+a,y+a);
end;
var g,d:integer;
begin
initgraph(g,d,'');
figura(50,200,20,14);
figura(200,250,30,13);
figura(300,200,10,12);
figura(500,250,40,11);
readln
end.

uses graphABC;
procedure figura(x,y,a,c:integer);
begin
setpencolor(c);
setbrushstyle(bsClear);
circle(x,y-a,a);
circle(x+a,y,a);
circle(x,y+a,a);
circle(x-a,y,a);
setbrushcolor(c);
setbrushstyle(bsSolid);
rectangle(x-a,y-a,x+a,y+a);
end;
begin
clearwindow(clBlack);
figura(50,200,20,clYellow);
figura(200,250,30,clFuchsia);
figura(300,200,10,clRed);
figura(500,250,40,clAqua);
end.

uses graphABC;
procedure figura(x,y,a:integer;c:Color);
begin
setpencolor(c);
setbrushstyle(bsClear);
circle(x,y-a,a);
circle(x+a,y,a);
circle(x,y+a,a);
circle(x-a,y,a);
setbrushcolor(c);
setbrushstyle(bsSolid);
rectangle(x-a,y-a,x+a,y+a);
end;
begin
clearwindow(clBlack);
figura(50,200,20,clYellow);
figura(200,250,30,clFuchsia);
figura(300,200,10,clRed);
figura(500,250,40,clAquamarine);
end.