Составьте программу, которая рисует план комнаты

uses graphABC;
var d,i:integer;
begin
d:=20;
setwindowsize(44*d,34*d);
centerwindow;
setfontstyle(fsBold);
for i:=1 to 40 do
 begin
  if i mod 5=0 then
   begin
    setpencolor(clBlack);
    textout(2*d+i*d-d,2*d-d,inttostr(i*d));
   end
  else setpencolor(clSilver);
  line(2*d+i*d,2*d,2*d+i*d,2*d+30*d);
 end;
textout(2*d,2*d-20,'0');
for i:=1 to 30 do
 begin
  if i mod 5=0 then
   begin
    setpencolor(clBlack);
    textout(2*d-30,2*d+i*d-5,inttostr(i*d));
   end
  else setpencolor(clSilver);
  line(2*d,2*d+i*d,2*d+40*d,2*d+i*d);
 end;
setpenwidth(2);
setbrushstyle(bsClear);
setpenwidth(4);
rectangle(2*d,2*d,windowwidth-2*d,windowheight-2*d);
line(7*d,7*d,27*d,7*d);
line(32*d,7*d,37*d,7*d);
line(37*d,7*d,37*d,12*d);
line(37*d,17*d,37*d,27*d);
line(37*d,27*d,7*d,27*d);
line(7*d,27*d,7*d,7*d);
setpenwidth(8);
line(8*d,10*d,10*d,8*d);
setpenwidth(2);
moveto(14*d,7*d);
lineto(14*d,10*d);
lineto(10*d,10*d);
lineto(10*d,17*d);
lineto(7*d,17*d);
line(27*d,7*d,27*d,12*d);
arc(27*d,7*d,5*d,270,360);
line(32*d,12*d,37*d,12*d);
arc(37*d,12*d,5*d,180,270);
setbrushcolor(clBlack);
setbrushstyle(bsDiagCross);
rectangle(30*d,22*d,37*d,27*d);
setbrushstyle(bsSolid);
setbrushcolor(clBrown);
rectangle(16*d,7*d,22*d,9*d);
circle(12*d,12*d,d);
rectangle(7*d,20*d,22*d,27*d);
setbrushstyle(bsClear);
rectangle(8*d,21*d,11*d,26*d);
end.