Составить программу, которая выводит на экран изображения двух геометрических фигур заданного цвета: фигура 1: чёрный прямоугольник; фигура 2: зелёный квадрат

uses graph;
var x0,y0,gd,gm:integer;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
setfillstyle(1,0);
bar(x0-300,y0-50,x0-50,y0+50);
setfillstyle(1,green);
bar(x0+50,y0-50,x0+150,y0+50);
readln
end.