турбо раскаль модуь graph

[labr-kot]

народ помогитье!!!
Мненадо составить два рисунка
1) схематично нарисовать диск и дисетку
2)анимировать рост дерева

кто может пожалуста помогите, а то я совсем не врубился как работает

[motaro]

1.

uses graph;
var device,mode,y,r:integer;
begin
 y:=120;
 r:=20;
 initgraph (device,mode,'');
 Rectangle(435,86,606,260 );
 Rectangle(471,86,567,145 );
 Rectangle(531,92,550,140 );
 Rectangle(452,157,587,240 );
 Rectangle(439,248,445,254 );
 Rectangle(594,247,600,253 );
 setcolor (yellow);
 repeat
  circle (200,200,r);
  r:=r+2;
 until r>150;
 readln;
 closegraph
end.

[Stilet]

2)анимировать рост дерева

Ну допустим возьми елку. ПУсть она из трапеций составляется.
При ее росто трапеции пусть увеличиваются и продвигаются вперед, каждая на полвысоты предидущей трапеции.

[labr-kot]

большое спосибоза подсказку