Паскаль АВС

Question

Помогите пожалуйста. Я не могу нарисовать снежинку, не могу с координатами разобраться, напишите, пожалуйста, программу снежинки. Или креста (дальше сама попробую) . Спасибо)

Сергей А · Accepted Answer

вместо снежинки 
{Âîò ïðîãðàììà ñ åëêîé:} 
program grelka; 
Uses GraphABC; 
Begin 
SetWindowSize(600,400); 
line(250,100, 300,50); 
lineto(350,100); 
lineto(250,100); 
floodfill(300,70, clred); 
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, clblue); 
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.