Нужно написать задание в поскале. Елочка на 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.