Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
<span>end. </span>
<span>988 г. - 5) Принятие христианства на Руси </span>
<span>1147 г. - 6) Первое упоминание в летописи о Москве </span>
<span>1492 г. - 9) Открытие Колумбом Америки </span>
<span>1895 г. - 3) Открытие радиосвязи </span>
<span>1941 г. - 7) Начало Великой Отечественной войны </span>
<span>1946 г. - 1) Создание первого компьютера </span>
<span>1951 г. - 2) Создание первого отечественного компьютера </span>
<span>1957 г. - 8) Запуск первого искусственного спутника Земли </span>
<span>1961 г. - 4) Первый полет человека в Космос</span>