Нужен рисунок на turbo pascal c закрашенными частями, дом, машина например!

Uses graphABC;

begin
setwindowsize(800,600);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,800,400);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,400,800,600);

setpencolor(clblack);
setbrushcolor(clSilver);
rectangle(50,300,250,500);
rectangle(250,500,500,300);
line(50,300,150,200);
line(150,200,250,300);
line(400,200,500,300);
line(150,200,400,200);
floodfill(150,250,clsilver);
floodfill(300,250,clMaroon);
setbrushcolor(claqua);
rectangle(110,360,190,440);
rectangle(280,360,360,440);
setbrushcolor(clSilver);
rectangle(280,180,320,230);
setbrushcolor(clMaroon);
rectangle(400,350,470,500);
setbrushcolor(claqua);
circle(150,270,20);
setbrushcolor(clBrown);
rectangle(650,400,670,500);
setbrushcolor(clgreen);
ellipse(570,150,750,420);
end.