пожалустааааааааааааа!!!!!!!!!!!
вот ёлочка в паскале аbс надо сделать чтобы она росла
Program elochka;
uses GraphABC;
var m,i:integer;
begin
m:=50;
ClearWindow;
SetPenColor(ClGreen);
for i:=1 to 3 do
begin
MoveTo(WindowWidth div 2,m);
LineTo((WindowWidth div 2)-m,2*m+10);
LineTo((WindowWidth div 2)+m,2*m+10);
LineTo((WindowWidth div 2),m);
FloodFill(WindowWidth div 2,m+12,ClGreen);
inc(m,50);
end;
FloodFill(WindowWidth div 2,m+12,ClGreen)
end.