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