Составьте программу выводящуюю любой рисунок на экран."Желательно какой нибудь  домик с деревьями"

program drawFigure;  uses graph;  var    gD,gR:integer;  procedure drawHouse(x,y:word);   const    wallSide=70;    windowSide=20;   var    houseRoof:array[1..4] of pointtype;   begin    setFillStyle(1,10);    bar(x,y-wallSide,x+wallSide,y); rectangle(x,y-wallSide,x+wallSide,y);    setFillStyle(1,1);    bar(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2,       x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); rectangle(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide);    setFillStyle(1,2);    houseRoof[1].x:=x; houseRoof[1].y:=y-wallSide;   houseRoof[2].x:=x+wallSide;    houseRoof[2].y:=y-wallSide;    houseRoof[3].x:=x+wallSide div 2; houseRoof[3].y:=y-wallSide-wallSide div 2;    houseRoof[4].x:=x; houseRoof[4].y:=y-wallSide;    fillPoly(4,houseRoof);   end;  procedure drawTree(x,y:word);   const    treeFH=90;    treeFW=8;   var    ci:byte;    branchFH,branchFW:byte;   begin    setFillStyle(1,6);    bar(x,y-treeFH,x+treeFW,y);    for ci:=1 to 6 do     begin      branchFH:=random(5)+1; branchFW:=random(8)+10;      bar(x-branchFW,y-treeFH+ci*10,x,y-treeFH+ci*10+branchFH);      bar(x+treeFW,y-treeFH+ci*10,x+treeFW+branchFW,y-treeFH+ci*10+branchFH);     end;   end; begin  randomize;  initgraph(gD,gR,'');  drawHouse(100,280); drawHouse(230,270); drawHouse(430,290);  drawHouse(330,180);  drawTree(195,278); drawTree(325,275);  drawTree(265,350); drawTree(360,290);  drawTree(400,240); drawTree(580,285); drawTree(110,370);  readln; closeGraph; end.