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

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.

Игра +инженер+. удачи)