Программируем Новый Год

Кадет физико-математического профильного класса позавидовал пятиклассникам.

Обучение в старших профильных классах строится на принципах глубокого усвоения теоретических знаний и их применении при изучении программирования. Сложный учебный материал основанный на математических принципах может утомить даже фанатов. Кадет 11 а класса Булдаков Александр с сожалением заметил, что он бы с удовольствием вернулся в свой пятый класс и создал что-нибудь яркое, новогоднее. 

Но кадету, знающему технологии программирования, не пристало пользоваться средствами готового программного обеспечения. Проблема возникла практически из ничего. Как не прибегая к готовому программному обеспечению сделать графический рисунок.

Самостоятельно сформулировав цель и выбрав способ решения проблемы Александр  самостоятельно изучил необходимые средства языка программирования Паскаль, техническую документацию и создал новогоднюю программу. В общей сложности на всю работу у кадета затрачено три часа.

Спасибо, Саша, за настойчивость!

Вот открытый код программы. Все кто знает как ее использовать могут попробовать порадовать себя перед Новым Годом.

Uses GraphABC;

begin

Line(100,100,160,200);
Line(100,100,50,200);
Line(160,200,50,200); floodfill(100,130, clgreen);
Line(100,200,160,300);
Line(100,200,50,300);
Line(160,300,50,300);floodfill(100,230, clgreen);
Line(100,300,160,400);
Line(100,300,50,400);
Line(160,400,50,400);floodfill(100,330, clgreen);
Circle(160,200,10) ;floodfill(161,201, clred);
Circle(50,200,10) ; floodfill(51,201, clblue);
Circle(160,300,10);floodfill(161,301, clYellow);
Circle(50,300,10); floodfill(51,301, clRed);
Circle(160,400,10) ;floodfill(161,401, clBlue);
Circle(50,400,10) ;floodfill(51,401, clBlue);
Circle(80,370,10) ; floodfill(81,371, clWhite);
Circle(115,165,10) ; floodfill(116,165, clBlue);
Circle(93,150,10) ; floodfill(94,151, clRed);
Circle(105,248,10); floodfill(106,249, clYellow);
Circle(109,350,10) ; floodfill(110,356, clBrown);

Rectangle(90,400,120,440); floodfill(110,430, clBrown);
end.

А вот результат ее работы:

варя елка