Составте програму чтобы ** икран выводилась кортинка и состояла из 80 строчек uses...

Question

Составте програму чтобы на икран выводилась кортинка и состояла из 80 строчек uses graphabc нужно ипользовать

Answer 1

Вот программа с елкой: 
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); 
end.