Нужно написать в поскале. елочка на 3 триугольника, линиями, в цвете.

program p;
uses crt,graph;
var
D,M:INTeGeR;
begin
clrscr;
initgraph(d,m,'');
setcolor(green) ;
line(200,420,300,420);
line(300,420,250,330);
line(250,330,200,420);
line(200,330,300,330);
line(300,330,250,240);
line(250,240,200,330);
line(200,240,300,240);
line(300,240,250,140);
line(250,140,200,240);

readkey;
end.