Нарисовать дом используя графические примитивы

program dom;
 
uses
  graph, crt;
 
var
  D, D1: integer;
 
begin
  D := detect;
  initgraph(D, D, 'Z:\ ');
  setBKColor(9);
  setfillstyle(fill, 3);
  Bar(50, 50, 50, 50);
  setfillstyle(fill, 6);
  Bar(50, 50, 50, 50);
  setfillstyle(fill, 6);
  Bar(100, 50, 100, 50);
  setfillstyle(fill, 6);
  circle(x, y - 6, 5);
  floodfill(x, y - 6, 15);
  setcolor(15);
  line(100, 100, 100, 200);
  line(100, 200, 200, 200);
  line(200, 200, 200, 100);
  line(100, 100, 200, 100);
  line(100, 100, 150, 50);
  line(150, 50, 200, 100);
  readln;
end.

uses
  graph, crt;
 
var
  x,y,fill,gD, gm: integer;
 
begin
  gD := detect;
  initgraph(gD, gm, 'C:\bp\bgi ');
   
  setBKColor(9);
  setfillstyle(fill, 3);
  Bar(115, 120 ,135, 140);
  setfillstyle(fill, 6);
  Bar(155, 120 ,175, 140);
  Bar(50, 50, 50, 50);
  setfillstyle(fill, 6);
  Bar(140, 150, 160, 190);
  setfillstyle(fill, 7);
  x:=150;
  y:=75;
  circle(x, y, 10);
  floodfill(x, y, 15);
  setcolor(15);
  line(100, 100, 100, 200);
  line(100, 200, 200, 200);
  line(200, 200, 200, 100);
  line(100, 100, 200, 100);
  line(100, 100, 150, 50);
  line(150, 50, 200, 100);
  readln
end.