Графические рисунки: елочки и др - Turbo Pascal

uses graph;
procedure elka(x,y:integer);
var a,b,i:integer;
begin
a:=25;
b:=15;
setlinestyle(0,0,1);
setcolor(2);
for i:=0 to 3 do
 begin
  line(x,y+i*b,x-a,y+(i+1)*b);
  line(x,y+i*b,x+a,y+(i+1)*b);
  line(x-a,y+(i+1)*b,x+a,y+(i+1)*b);
 end;
setlinestyle(0,0,3);
line(x,y+4*b,x,y+5*b);
end;
procedure derevo(x,y:integer);
begin
setlinestyle(0,0,1);
setcolor(10);
setfillstyle(1,15);
fillellipse(x,y+20,10,20);
fillellipse(x,y+40,20,20);
fillellipse(x,y+70,30,20);
rectangle(x-5,y+90,x+5,y+120);
end;
procedure kust(x,y:integer);
begin
setlinestyle(0,0,1);
setcolor(3);
moveto(x,y);
lineto(x-15,y-15);
lineto(x+3,y-5);
lineto(x+6,y-25);
lineto(x+15,y-5);
lineto(x+25,y-25);
lineto(x+20,y-3);
lineto(x+35,y-10);
lineto(x+20,y);
lineto(x,y);
end;
procedure grib(x,y:integer);
begin
setlinestyle(0,0,1);
setcolor(7);
ellipse(x,y,0,360,40,10);
line(x-10,y+10,x-10,y+30);
line(x+10,y+10,x+10,y+30);
arc(x,y+30,180,360,10);
end;
procedure strekoza(x,y:integer);
begin
setlinestyle(0,0,1);
setcolor(13);
ellipse(x,y+5,0,360,5,30);
setfillstyle(1,15);
fillellipse(x,y,5,5);
fillellipse(x+25,y-7,28,4);
fillellipse(x-25,y-7,28,4);
fillellipse(x+25,y+7,28,4);
fillellipse(x-25,y+7,28,4);
arc(x,y-25,320,230,6);
end;
var x,y:integer;
begin
initgraph(x,y,'');
setbkcolor(15);
elka(60,40);
elka(160,60);
elka(280,20);
derevo(110,80);
derevo(230,40);
kust(40,180);
kust(60,260);
kust(180,220);
kust(160,300);
kust(280,280);
grib(70,205);
grib(190,160);
grib(170,240);
grib(270,220);
strekoza(60,300);
strekoza(300,140);
readln;
end.