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

program p;uses crt,graph;var D,M:INTeGeR;beginclrscr;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.